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en pantalla 



PROGRAMAS: 



Ñ VE Y Ü~ JM Ci O Mi JA MI C 




FERNANDO MARTIN 
BASKET MASTER 



Nunca nadie llegó tan lejos. 
Por primera vez en la Historia, un 
español jugará en la NBA. 
Fernando Martín se consolida co- 
mo una figura mundial y DINAMIC 
se une a la alegría de toda la afi- 
ción. 



ABU SÍMBEL 
PROFANA TION 



A lo largo de 3.000 años los mejo- 
res exploradores han intentado 
profanar el templo de Abu Simbel. 
Llegar hasta la cámara mortuoria 
es inaccesible; salir con vida, im- 

?isible. 
odos lo que osaron entrar jamás 
regresaron. 

Ahora, Johnny Jones, nuestro hé- 
roe, lo va a intentar. 



CAMELOT WARRIORS PHANT 



Si osas franquear la puerta 
misterio olvida todo lo que cono- 
ces, porque te internarás en un 
viaje sin retorno. Mundos pasados 
y futuros, magia negra, trampas 
ocultas. 

Aprieta la espada con tus puños y 
nunca, nunca eches la vista atrás. 




ornas es el único fuera de la 
ley capaz de arriesgar su vida en 
esta misión, no teme al peligro, no 
le importa el riesgo, no teme a la 
muerte... 




DINAMIC SOFTWARE . Pz 
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Editorial 



-MALA 



Venimos observando, con creciente 
disgusto, en esta redacción que uno 
de los rotativos de mayor difusión 
en el país omite sistemáticamente 
(cuando no ataca con saña) al 
standard MSX. 

Y esto no es flor de un día. No 
sabemos si este hecho bien patente, 
que seguramente habrán observado 
muchos de nuestros lectores, 
obedece simplemente a un 
desconocimiento profundo del 
panorama informático español o 
bien a una encubierta maniobra de 
tipo promocional que pretende 
hacer comulgar con ruedas de 
molino a futuros usuarios 
de microordenadores para que se 
decidan por la adquisición de 
micros que "fueron pero ya no 
son", aunque su nombre siga 
sonando o bien a hacerles comprar 
ordenadores domésticos que nunca 
han tenido un nombre relevante. 
No podemos hacer otra cosa que 
lamentar tal actitud, y desde nuestra 
tribuna, advertir a nuestros lectores 
acerca de esa tergiversación de la 
realidad. 

De todos modos, los usuarios de 
MSX saben suficientemente bien 
que disponen de un aparato que 
-hoy por hoy, y a nivel de 
ordenadores domésticos- 
no tiene nada que envidiar, sino 
todo lo contrario, a cualquier otro 
ordenador de su categoría. 
Por tanto, este editorial no va 
dirigido a los poseedores de MSX, 
sino a quienes estén intentando 
decidirse por la compra de uno 
u otro micro. A todos ellos 
hemos de decirles que si desean 
información objetiva no se 
remitan a los periódicos, sino 
que pregunten a los usuarios. Si 
proceden de este modo, estamos 
seguros de que el parque MSX 
todavía crecerá más. 

MANHATTAN TRANSFER, S.A 
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4 LINEA DIRECTA 
Respondemos a las con- 
sultas de nuestros lecto- 



res. 
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TABLON DE ANUNCIOS 

Dos inserciones gratui- 
tas para compra, venta e 
intercambio de hard y 
soft original. 



4 A CONCURSO SONY 
IM Publicamos la relación 
* v de programas ganado- 
res del segundo concur- 
so de programas 
SONY. 
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BASIC PASO A PASO 

Más sobre los bucles. 
Otros usos de FOR... 
STEP... NEXT. 



-j / PROGRAMAS 
I K Física 

xv Mapa Mundi 




Convoy 

Reparto musical 



2 A LA VRAM EN SCREEN 1 
Jyj Descubre la sorpren- 
* dente potencia gráfica 
de este modo de texto. 



1 h Las novedades más inte- 
* V resantes del panorama 
de la informática. 

i ENSEÑANZA ASISTIDA 
1 A POR ORDENADOR 

y u El gerente de PLUSDA- 
TA analiza el panorama 
de la enseñanza asistida. 
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Línea directa 




RESET 



¿Cómo puedo conseguir 
mediante una o varias órde- 
nes que el ordenador ejecute 
un RESET, como si se pulsa- 
se la tecla RESET o se apa- 
gase y encendiese el ordena- 
dor? 

Nicolás Viches Crespo 
HUELVA 

Conseguir un RESET des- 
de un programa es algo muy 
fácil de conseguir. Esto lo sa- 
ben aquellos que empiezan a 
programar en ensamblador. 
Para conseguir un RESET 
sólo has de saltar a la direc- 
ción cero de memoria. Para 
lograr esto has de escribir la 
siguiente línea: 
DEFUSR = 0:A=USR(0) 



f~o. \f bienvenido « la 
! . Er-»« Jim Hauikins. el 
^tntur». Te *rr i esíaras 
loro »nttrr*do del ínftn 



La Isla del Tesoro. 

LA ISLA DEL TESORO 

Tengo el ordenador HIT- 
BIT HB-75P de Sony y qui- 
siera saber si el juego "La 
Isla del Tesoro" está dispo- 
nible en cassette o cartucho 
y su precio y cómo podría 
adquirirlo. 

Enrique Cuenca Rodrigo 
Moneada (VALENCIA) 

El juego "La Isla del Teso- 
ro" se encuentra únicamente 
en versión MSX-2, por lo que 
no podrás utilizarlo con tu or- 
denador ni con cualquier otro 
de la primera generación. El 
juego, debido a su gran tama- 
ño, se encuentra únicamente 
en versión de disco de 3 pul- 
gadas y media. Lamentamos 
que este interesantísimo jue- 
go no funcione en tu ordena- 
dor. 



ELIPSES INCLINADAS 

En el proceso de un pro- 
grama que estoy realizando, 
me ha surgido una duda res- 
pecto a cómo dibujar una 
elipse con la instrucción 
CIRCLE inclinada 45 gra- 
dos con respecto a la hori- 
zontal. 

Manuel Risco Pérez 
Pueblonuevo 
(CORDOBA) 

Debemos hacerte saber 
que no es posible dibujar una 
elipse inclinada por medio 
del comando CIRCLE. Para 
ello debes utilizar las fórmu- 
las trigonométricas de la elip- 
se, que te incluimos a conti- 
nuación. Debes incluir la fór- 
mula en un FOR. . . NEXT dt 
a 2*pi haciendo el STEP 
que desees según la resolu- 
ción que desees. 
FOR 1 = OTO 2 *PI STEP 
xxxx 

X = centroJC+(COS(&* 
radiojooriz) 

Y=(centro_Y+(SIW)* 
radio_vert)) *4/3 
instrucción _de_dibujo 
NEXTI 



CASSETTES MSX 



¿Dónde podría obtener 
una amplia gama de casset- 
tes para MSX? 
Juan Sebastián de Izaguirre 
Donostia (GUIPUZCOA) 

En el mercado del softwa- 
re MSX se producen cambios 
constantemente, por lo que es 
muy difícil estar al día de to- 
das las novedades que apare- 
cen en el mercado. Sin em- 
bargo, en nuestro "Especial 
Software" publicamos una 
completa lista con todo el 
software existente en el mer- 
cado MSX antes de cerrar di- 
cho número. En el "Especial 
Software" se incluyen tam- 
bién las direcciones de los dis- 
tribuidores de software para, 
de este modo, dirigir vuestros 
pedidos y consultas directa- 
mente a ellos. El "Especial 
Software" puedes conseguirlo 




DISCOS E IMPRESORAS 



Les agradecería se sirvie- 
sen indicarme qué tipos de 
unidades de disco o de im- 
presoras puedo acoplar a mi 
ordenador SVI-728 MSX. 

Juan Manuel Elices 
Mondragón 
(GUIPUZCOA) 

Trataremos en primer lu- 
gar las unidades de disco. Por 
ser tu ordenador un MSX 
puedes conectarle cualquier 
unidad de disco. Sin embar- 
go, para ello debes utilizar el 
conector de cartucho situado 
en la Darte superior de tu or- 
denador. Puedes también uti- 
lizar la unidad de disco Spec- 
travídeo, permitiéndote en 
este caso utilizar el conector 
especial situado en la parte 
posterior de tu ordenador. Es 
esta la única ventaja de esta 
unidad, ya que te permitirá 



utilizar con la unidad de dis- 
co conectada el slot para car- 
tucho que queda libre. 

En cuanto a impresoras, 
puedes conectar a tu ordena- 
dor cualquier impresora que 
siga la norma Centronics (el 
99% de las existentes en el 
mercado). Sin embargo pue- 
des tener algún problema si 
la impresora no es MSX, ya 
que alguno de los caracteres 
del ordenador pueden no 
aparecer impresos en este 
caso, o bien que algunos pro- 
gramas no reconozcan la im- 
presora. 

Sino buscas una impresora 
con altas prestaciones te reco- 
mendamos te encamines ha- 
cia una impresora MSX, ya 
que con cualquiera de las 
existentes conseguirás tus 
ropósitos a la perfecáón. 




dirigiéndote a nuestro depar- 
tamento de números atrasa- 
dos. 

SLOTS EN EL TOSHIBA 
HX-20 

Hace cuatro meses adqui- 
rí un Toshiba HX-20 y he 
notado que, al cargar algu- 
nos programas se me blo- 
quea el ordenador, con jue- 
gos como DAMBUSTERS, 
REVENGE GROG. Llamé 
al servicio oficial y me dijo 
que el ordenador está bien, 
que al tener procesador de 



texto le impide ejecutar al- 
gunos programas. ¿Es eso 
cierto? ¿Se puede evitar con 
un cartucho de ampliación? 

Carlos Beltrán 
Alcorcen (MADRID) 

La respuesta del servicio 

Toshiba XH-20. 
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AVISO 
IMPORTANTE 



Ya sabéis que la tónica 

aje mantenemos es ciaros 
máximo apoyo, lo que 
queda bien patente tanto 
en los artículos de estas pá- 
ginas como en la sección 
destinada a correo del lec- 
tor. 

Precisamente por ello, 
os pedimos que realicéis 
vuestras consultas por co- 
rreo. Si el teléfono no para 
de sonar en nuestra redac- 
ción -como viene suce- 
diendo últimamente- per- 
demos un tiempo precioso 
en responder vuestras con- 
sultas individualmente, 
mientras que cuando son 
contestadas a través de la 
revista, una sola respuesta 
sirve para toda aquella gen- 
te que tenga el mismo o si- 
milar problema. Todos sa- 
bemos lo molesto que es 
quedarse atascado cuando 
se está desarrollando un 
programa, o las ganas que 
se tienen de verlo funcio- 
nar tras haberlo tecleado. 
Pero hemos comprobado 
que la mayoría de atascos 
son producto dé la precipi- 
tación por lo que os roga- 
mos que apliquéis la norma 
de oro que reza: antes de 
telefonear inay que refle- 
xionar. 

Con respecto a los pro- 
blemas cíe listados, podéis 
solucionarlos vosotros mis- 
mos aplicando el test de lis- 
tados y en cuanto a los pro- 
gramas que desarrolléis vo- 
sotros, poco os podemos 
ayudar si no los tenemos a 
la vista. 

Así pues, apelamos a 
vuestro buen criterio para 
solucionar este enorme 
problema de colapso tele- 
fónico que estamos su- 
friendo. 

Por ello, y lamentándolo 
mucho, a partir de ahora, 
atenderemos telefónica- 
mente sólo las consultas de 
programación verdadera- 
mente indispensables. 
Ayudadnos un poco- si te- 
nemos más tiempo las re- 
vistas salen mejor. 

MANHATTAN TRANSFER, S.A. 



oficial puede ser totalmente 
correcta; pero la culpa no es el 
ordenador. Repetimos por 
enésima vez que la dejadez de 
ciertos programadores lleva 
de cabeza a muchos usuarios 
de MSX, ya que son los pro- 
gramadores los que no siguen 
las normas del estándar 
MSX. 

Este tipo de errores no son 
siempre solventables; pero, 
ciertamente, en algunas oca- 
siones se soluciona con una 
ampliación de memoria. Vara 
darte una respuesta más con- 
creta deberíamos conocer la 
disposición de los bancos de 
memoria, información que 
con toda seguridad debe estar 
incluida en el manual de ins- 
trucciones de tu aparato. 

LEYENDO... GRABANDO... 

¿Tengo un ordenador 
Philips VG-8020 y he nota r 
do que cuando grabo pro- 
gramas (del ordenador a la 
cinta) el cursor se pierde 
hasta que sale Ok. ¿Por qué 
en otros ordenadores salen 
mensajes como "Press 
PLAY & RECORD" y en 
éste no? ¿No son los mismos 
los comandos? 
José Luís Jiménez Moreno 
MALAGA 




En primer lugar aclararte 
que el modo de grabación es 
el mismo en toaos los MSX. 
Este mensaje puede haberte 
aparecido en otros ordenado- 
res que no son MSX. En el 
fondo este detalle radica en 
una elección a la hora del di- 
seño del ordenador. ¿Porqué 
unos ordenadores son grises, 
otros blancos, otros ne- 
gros...? 

En los MSX se han supri- 
mido estos mensajes por una 




MUSICA MSX 



Estoy intentando hacer 
un programa de música; 
pero me es totalmente impo- 
sible, ya que una vez que he 
cambiado la forma y el tono 
no sé volver el sonido a la 
posición inicial. Les rogaría 
me informasen de cómo 
puedo devolverlo a su posi- 
ción inicial y cómo puedo 
reproducir el sonido de los 
instrumentos más importan- 
tes, como la guitarra, la 
trompeta, etc. 

Raúl Solé Pastor 
Premia de Mar 
(BARCELONA) 

Una vez haz modificado la 
forma de la envolvente me- 
diante los comandos "S" y 
"M" del macrocomando 
PLAY, o bien mediante la 
instrucción SOUND es fácil 
recuperar el formato inicial 
de ta envolvente. Para ello 
sólo debes hacer PLA Y "V8" . 

Mediante este comando 
modificas el volumen "V co- 
locándolo al nivel 8 de forma 
constante. Como los coman- 
dos "S" y "M" modifican la 
envolvente mediante varia- 
ción del volumen (amplitud) 
este sencillo comando te de- 
volverá el sonido inicial, sin 
ningún tipo de envolvente. 
El volumen 8 es el habitual- 
mente usado por el BASIC; 



otro según desees. 

Respecto a tu segunda 
cuestión, es algo más compli- 
cada. El timbre de cualquier 
instrumento no viene única- 
mente determinado por la en- 
volvente de su onda sonora 
(que es lo que podemos modi- 
ficar desde el BASIC). Es de 
vital importancia la suma de 
armónicos (ondas fundamen- 
tales) que lo componen. Imi- 
tar este comportamiento es lo 
suficientemente complicado 
como para intentar abstener- 
nos de ello en todo lo posible. 
Existen dos soluciones alter- 
nativas, ninguna de ellas sen- 
cilla. La primera de ellas con- 
siste en hacer vibrar el alta- 
voz directamente, mediante 
"1" y "0", conexión y desco- 
nexión. Si esto lo realizas des- 
de el ensamblador podrás ge- 
nerar cualquier sonido modi- 
ficando adecuadamente la 
frecuencia de vibración en 
cada instante. Es así como se 
consiguen los efectos de voz 
digitalizada en muchos pro- 
gramas. 

El segundo método consis- 
te en variar la forma de la en- 
volvente según la duración de 
cada nota. Esta tarea es muy 
laboriosa; pero puede llevar- 
se a cabo con éxito desde el 
BASIC. Los resultados, que 
no podemos calificar de "alta 
fidelidad' son, sin embargo, 




causa muy simple. El ordena- 
dor puede utilizarse con cual- 
quier aparato de cassette, y 
esto le obliga a perder parte 
del control sobre él. En los 
ordenadores que utilizan cas- 
settes especiales, Spectravi- 
deo SV-328 y 318, Commo- 
dore, Amstrad, etc. es posible 
este mensaje, ya que el orde- 



nador puede saber en todo 
momento si la cinta está ro- 
dando o no, que botones es- 
tán pulsados, etc. La no exis- 
tencia de este mensaje en la 
grabación, no es, sin embar- 
go, ningún problema grave. 
Sólo has de recordar que, 
cuando deseas grabar has de 
pulsar PLAY & RECORD. 
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X'PRESS 16 



PCversusMSX-2 

Los MSX de primera ge- 
neración son, hoy por hoy, 
la elección indudable como 
ordenador doméstico; pero, 
ante la baja de precios de los 
compatibles IBM se me pre- 
senta un dilema, ¿MSX de 
segunda generación o PC? 

Aunque apareció en su re- 
vista, todos los expertos en 
informática han negado la 
aparición del X'PRESS 16 
compatible MSX-PC, ya 
que su comercialÍ2ación no 
es posible debido a los gran- 
des problemas técnicos que 
surgen en su funcionamien- 
to. 

Juan Griera i Monillo 
Sabadell (BARCELONA) 

Tu primera pregunta es fá- 
cil de responder, aunque a 
muchos usuarios tal elección 
les pueda resultar difícil. Am- 
bos ordenadores se dirigen a 
mercados potencialmente di- 
ferentes. Los ordenadores PC 
(Personal Computer) se diri- 
gen al mercado personal, es 
decir, a pequeñas empresas o 
profesionales liberales qug 
desean llevar una pequeña 
gestión personal. Dada la 
enorme cantidad de software 
existente en el mercado PC 
existen aplicaciones científi- 
cas, estadísticas, de gestión, 
etc; pero, como se ve, muy 
alejadas del ambiente fami- 
liar. 

Los ordenadores MSX, in- 
cluidos los de segunda gene- 
ración, son ordenadores do- 
mésticos, es decir, dirigidos al 
mercado familiar. Sus princi- 



pales características son la 
amistosidad, los gráficos y el 
sonido. Sus principales apli- 
caciones son la educación, el 
ocio, y la gestión doméstica. 
Ambos aparatos distan enor- 
memente, y sería estúpido 
pretender imponer los MSX 
en el mercado personal, en el 
que nada tienen a hacer por el 
momento. Piensa, sin embar- 
go, que los PC no disponen 
de buenos gráficos, ni de so- 
nido (excepto un muy desa- 
gradable zumbido que cam- 
bia de tono), ni de todas esas 
características que hacen de 
los MSX-2 los mejores orde- 
nadores domésticos existen- 
tes en la actualidad. 

Respecto a tu segunda 
cuestión hemos de aclararte 
que el Spectravídeo X'PRESS 
1 6, no sólo está en el merca- 
do, sino que fue una de las es- 
trellas del pasado INFOR- 
MAT-87 celebrado en Barce- 
lona a principios de marzo. 
Evidentemente los expertos 
en informática a los que te re- 
fieres no lo son tanto, o están 
muy mal informados. Res- 
pecto a las dificultades de un 
ordenador doble-compatible 
son grandes; pero solventa- 
bles. Existe un importante 
precedente gracias a VIC- 
TOR COMPUTERS, que co- 
mercializó hace un par de 
años el primer ordenador do- 
ble-compatible, que compati- 
bilizaba sus ordenadores 
VICTOR 9000 con los com- 
patibles IBM. Hemos de re- 
saltar el enorme esfuerzo rea- 
lizado por Spectravídeo Dará 
desarrollar este extraordina- 
rio PC que, mediante un mó- 
dulo especial, permite utili- 
zar todos los cartuchos de 
MSX. 




SKY HAWK. Un magnifico juego de simula- 
ción de vuelo. En él te conviertes en un piloto 
que na de derribar al enemigo y regresar al 
portaaviones sano y salvo. PVP. 1.000 pts. 



Í!0RB^ uevo 




LORD WATSON. Este es un Juego muy original 
que combina el laberinto con las palabras 
cruzadas. Los obstáculos fantásticos y el vo- 
cabulario son los alicientes . PVP. 1.000 pts. 



HCIAH 




MATA MARCIANOS. Dn juego clásico en una 
versión cuya mayor virtud es su diabólica ve- 
locidad que aumenta a medida que superamos 
las oleadas de los Invasores ertraterrestres. 
PVP. 900 pts. 



VAMPLRE . Ayuda al audaz Guillermo a salir 
del castillo del Vampiro, sorteando murcié- 
lagos, fantasmas, etc. ün juego terrorífica- 
mente entretenido para que lo pases de mie- 
do. PVP. 800 Pts. 



^^^t¡i€^ PARAMSX-1 

*HARÜ 
C0PY 

POR JOAQUIN LOPEZ 

Mrnui por ventanas tres 
formato» de copla» «imulaclón 
en blanco y nefro - copla 
tprltaa .rndeflne coloro» 
compatible con cualquier 
Impresora matrlelal. 



CON GARANTIA 



HARD COPY. Para copiar pantallas. Tres 
formatos de copias, simulación por blanco y 
negro, copia sprites, redeflnlc. de colores, 
compatible con todas las impresoras ma- 
tric. PVP. 2.500 Pts. 




¿Cómo corregir los errores 
de transcripción de los 
programas? 
La solución a los errores en 
los programas es este TEST 
DE LISTADOS. 



CON GARANTIA 

/WMNHATW TRANSFERSA 



TEST DE LISTADOS. El segundo programa de 
la Serle Oro es el útilísimo Test que te permi- 
tirá controlar la corrección de los progra- 
mas que copies de MSX CLUB y MSX EXTRA 
PVP. 500 Pts. 
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KRYPTON. La batalla mas audaz de las gala- 
xias en cuatro pantallas y cuatro niveles de 
dificultad. Un juego cuya popularidad es cada 
vez más grande entre los usuarios del MSX. 
PVP. 500 Ptas. 



El secreto de la 



Ü-BOOT. Sensacional juego de simulación 
submarina en la que tienes que demostrar tu 
pericia como capitán de un poderoso subma- 
rino de guerra. Panel de mandos, sonar, tor- 
pedos, etc. PVP. 700 Ptas. 



•"X ' 



CON GARANTIA I 



QUINIELAS. El mas completo programa de 
quinielas con estadística de la liga, de los 
aciertos, etc. e impresión de boletos. Acertar 
no siempre es cuestión de suerte. PVP. 700 
Ptas. 




SNAKE. Entretenido y muy divertido juego 
en el que Snake procura comer unos núme- 
ros que la engordan. Tanto las murallas que 
la rodean como su larga cola pueden ser 
mortales para ella. PVP. 600 Ptas. 





EL SECRETO DE LA PIRAMIDE. Atrevido 
juego de aventuras a través de los misterios 
y peligros que encierran los laberinticos pa- 
sillos de una pirámide egipcia. ¡Atrévete si 
puedes! PVP. 700 Ptas. 



STAR RUNNER. Conviértete en el audaz 
piloto interestelar y lucha a muerte, a 
través del hiperespacío, contra las defen- 
sas del tirano Daurus. Dos pantallas y 
cinco niveles de dificultad PVP. 1.000 pts. 



FLOPPY. El Preguntón. Un verdadero desafio 
a tus conocimientos de Geografía e Historia 
española. Floppy no perdona y te costara 
mucho superarlo PVP 1 000 Ptas 



MAD FOX. Un héroe solitario es lanzado a 
una carrera a vida o muerte por un desierto 
plagado de peligros. Conseguir el combusti- 
ble para sobrevivir es su misión Diez niveles 
de dificultad PVP 1 000 pts 



Si qoieresrecibir por ^^cer^wdo^ta^as^tt^gaMtizad^rewrtao copia este boletín y envíalo hoy mismo: 



n 



Nombre y apellidos: 

Dirección: 

Población: 
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• ••••••••••••••••••••••••a* CP 
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Prov. 



Tel.: 



□ KRYPTON 

□ UBOOT 

□ QUINIELAS 



Ptas. 500,- 

Ptas. 700,- 

Ptas. 700- 

□ HARDCOPY Ptas. 2.500,- 

□ LORD WATSON Ptas. 1.000,- 



□ SNAKE Ptas. 600,- 

□ EL SECRETO DE LA PIRAMIDE Ptas. 700- 

□ STAR RUNNER Ptas. 1.000- 

□ TEST DE LISTADOS Ptas. 500,- 

□ MATA MARCIANOS Ptas. 900,- 



□ FLOPPY Ptas. 1.000- 

□ MAD FOX Ptas. 1.000- 

□ VAMPIRO Ptas. 800- 

□ SKYHAWK Ptas. 1.000,- 

□ TNT Ptas. 1.000- 



^Gastos de envío certificado por cada cassette Ptas. 70,- Remito talón bancario de Ptas a la orden de Manhattan Transfer, S Aj 

ATENCION: Los suscriptores tienen un descuento del 10% sobre el precio de cada cassette. 

IMPORTANTE: Indicar en el sobre MSX CLUB DE CASSETTES. ROCA I BATLLE, 10-12 BAJOS. 08023 BARCELONA 

Para evitar demoras en la entrega es imprescindible indicar nuestro nuevo código postal. 



NUESTRAS CASSETTES NO SE VENDEN EN QUIOSCOS. LA UNICA FORMA DE ADQUIRIRLAS ES SOLICITAMELAS 

A NUESTRA REDACCION. ¡NO SE ADMITE CONTRA REEMBOLSO! 



Tablón de anuncios 



Esta sección de MSX CLUB es de nuestros lectores. Todos ellos tienen derecho a dos inserciones totalmente gratuitas. Las características 
de esta sección no permiten la inclusión de anuncios con fines de lucro. Advertimos que la desprotección y copia de software original es 
un acto delictivo perseguido por la ley. 



Vendo videojuegos Philips G- 
7000 con seis cartuchos de jue- 
gos por 10.000 Ptas. Santi San- 
doval. Rbla. Justo Oliveras n.° 
69. Hospitalet. BARCELONA 
CP.l. 

Vendo cartuchos de Konami: 
A. Land, H. Sport I, Tennis, 
cada uno 4.000 Ptas. y los tres 
1 1 .000 Ptas. También vendo 
joystick Sanyo por 3.200 Ptas. y 
otro Aristón por 1.000 Ptas. M. 
Garrido Pareja. Tlf: (968) 22 28 
52. Bib-rambla22 1° GRANA- 
DA. CP.l. 

Vendo ordenador Sony HB- 
75 P de 80 Kb, poco uso, cables 
de conexión y manuales y va- 
rios programas comerciales por 
40.000 Ptas. Gustavo Cela. Tlf: 
21 67 93. C/. Poeta CabanÜlas 
n.° 10-12 piso 3.° izq. 27004 
LUGO. CP.l. 

Vendo Spectravídeo 328, ex- 
pander 605B, varios programas 
en CP/M (WordStar, CalcStar, 
ReportStar, Data, Contabili- 
dad), y monitor de fósforo ver- 
de. Alberto Navarrete. Tlf.: 
(91)255 06 55. CP.l. 
Cambio 25 juegos, 10 cartu- 
chos y el resto originales en cin- 
ta. 

Busco Green Beret, Jail Break y 
Nemesis. Mis 25 juegos por es- 
tos tres. Luis Escudero García. 
Casablanca 11. 04740 Roquetas 
de Mar. ALMERIA. CP.l. 
Vendo Joystick Quickshot II, 
precio a convenir. Angel Peña. 
C/ O. Basulto 95. Torreperogil. 
23320 JAEN. Tlf.: (953)77 60 
24. CP.l. 

Cambio tres juegos. Zaxxon, 
Chiller y Speed King originales 
por Gunfright (original). Ma- 
nuel Romeu. C/ M. a Rosa Mo- 
les n.° 27, 1.° 1. a . 43500 Torto- 
sa. TARRAGONA. CP.l. 
Compro cartucho de amplia- 
ción de memoria para ordena- 
dor Sony MSX. José Fernando 
López. Tlf.: 21 08 63. ZARA- 
GOZA. CP.l. 

Vendo juegos originales a 300 
Ptas. También vendo cartuchos 
Konami originales por 2.000 
Ptas. Estoy interesado también 
en una ampliación de memoria. 
Paco. Tlf.: (958) 66 08 47. 
CP.l. 

Vendo Sony HB-55P con am- 
pliación de memoria de 64 Kb y 
muchos programas por 35.000 
Ptas. Angel Lafuente Esteban. 
C/ Alférez Provisional, 1, 4.° 
42003 SORIA. CP.l. 
Vendo Philips VG-8000 de 48 



Kb con manuales en castellano, 
10 programas comerciales, más 
de 20 revistas MSX CLUB, ca- 
bles de conexión, procesador 
de textos y hoja de cálculo, 
todo comprado hace un año. 
Todo por 36.000 Ptas. (discuti- 
bles). Fernando Alabán Albe- 
ro. Virgen de Guadalupe 13, 
2.° Iz. Villena. ALICANTE. 
Tlf.: (965) 80 38 33 y 80 47 70 
CP.l. 

Vendo HIT-BIT 55P con ma- 
nuales en castellano, cables, 
etc. Precio a convenir. Pablo 
Gil. Tlf: (986) 27 49 57 a partir 
de las 8 de la tarde. Vigo. PON- 
TEVEDRA. CP.l. 
Vendo Booga-Boo y Time 
Curb a 2.500 Ptas. Escribir a: 
C/ Belinda n.° 5. Montaña los 
Vélez (Agüines). Gran Canaria. 
35259. CP.l. 

Vendo Philips VG-8000 MSX 
de 32 Kb y expansión de 16 Kb, 
cables, libro de manejo y varios 
programas. Todo por 30.000 
Ptas. José Manuel Vera Vil- 
ches. C/ Escritor José de los 
Heros n.° 3. 14014 CORDO- 
BA. Tlf.: (957) 25 47 24 ó 27 48 
67. CP.l. 

Cambio MSX Código Máquina 
de la editorial DATA BECKER 
por otro libro de la misma co- 
lección o lo vendo al precio de 
1.800 Ptas. Javier Hernández. 
Tlf.: 242 99 44. S.Jerónimo 24. 
08001 BARCELONA. CP.l. 
Vendo ordenador Philips MSX 
VG-8020 de 80 Kb, sin estre- 
nar, por sólo 25.000 Ptas. Da- 
vid Altafaja Albert. Tlf.: 21 1 85 
95. BARCELONA. CP.l. 
Vendo MSX con cartucho de 
16 Kb y Spectrum 4- con inter- 
face Kempston con programas, 
libros, revistas, etc por 20.000 
Ptas. cada uno. Alfonso Mon- 
toya Albax. ALMERIA. Tlf: 43 
16 12. CP.l. 

Vendo superexpander con doí 
discos para SVI-328 por 75.00C 
Ptas. cartucho de 80 columnas 
por 15.000, monitor f. verde 
por 17.000. Regalo DBASE II, 
WORDSTAR, etc. Venancio 
Gancedo. Tlf.: (942) 33 98 69. 
SANTANDER. CP.l. 
Vendo 10 programas MSX ori- 
ginales por sólo 2.400 Ptas. Hy- 
per Sports III, Sweet Acorn, 
etc. Teresa Martín. C/ Villaba- 
ñez, 26. 47320 Tudela de Due- 
ro. VALLADOLID. CP.l. 
Vendo Sony HB-101P, 20 jue- 
gos comerciales y cassette espe- 
cial para ordenador por 30.000 



Ptas. David. Tlf.: (958) 12 32 
15 (horas comida). GRANA- 
DA. CP.l. 

Compro juego Atlethic Land o 
bien lo cambio por uno de es- 
tos: Track&Field I, Fútbol, 
Soccer, Monkey Academi, etc. 
Franciso Javier Orellano Liza. 
C/ Mariano Vergara n.° 7, 5.° 
Atico. 30003 MURCIA. CP.l. 
Vendo ordenador SVI-328 con 
Superexpander 605 B de dos 
unidades de disco, doble cara 
doble densidad, e impresora 
Seikosha con cable y tarjeta 
centronic. Todo por el 50% de 
su valor según facturas de com- 
pra. En perfecto estado. Jacinto 
Moreno Aguilar. Avda. de Cá- 
diz, n.° 10. 14009 CORDOBA. 
Tlf.: 29 90 63. CP.l. 
Vendo o cambio por impreso- 
ra, unidad de disco o periféri- 
cos y programas, 1 radio-cas- 
sette STEREO marca SONY 
cfs55L, y 1 cámara réflex marca 
Zenith con objetivo y flash elec- 
trónico. Juan Manuel Elices. C/ 
Larragain n° 6, 3.° D. Mondra- 
gón. GUIPUZCOA. Tlf.: (943) 
79 80 64, de 19 a 22 h. CP.l. 
Cambio juegos originales de 
Konami (Yie Ar Kung-Fu, 
Knight-Mare, etc), de Erbe 
(Avenger, Desolator, Basquet) 
por Green Beret, Goonies, Ne- 
mesis, Batman, Deus ex Machi- 
na, y otros. Carlos Angulo. C/ 
Sant Felip de Roses n.° 45. Ba- 
dalona. BARCELONA. Tlf.: 
384 02 14. CP.l. 
Cambio por un cartucho u 
otros programas estos 5 origi- 
nales: Chiller, Octagon, M-47, 
Space Walk, Fórmula- 1. Tam- 
bién los vendería a 1.250 Ptas. 
Antonio Plaza. 0,1 Barceló, 6- 
2. a . 28004 MADRID. CP.l. 
Compro unidad de disco para 
diskettes de 5,25 ó 3,5 pulga- 
das, impresora o impresora- 
plotter, Music Modules y en- 
samblador/desensamblador. 
También cambio programas 
MSX originales, preferente- 
mente de gestión. José Ribelles. 
Tlf: (96) 370 94 85. San José de 
La Montaña 14-D. 46008 VA- 
LENCIA. CP.2. 
Intercambio trucos, conoci- 
mientos del MSX y de la uni- 
dad de disco 3,5 pulgadas. Po- 
seo mapas de memoria ROM. 
Carlos Mateos. C/. Doctor Za- 
menhof, 24. 3.°, 1. a . 08240 
Manresa. BARCELONA. CP.2. 
Vendo en perfecto estado por 
""[-2, ordena- 



dor YASHICA MSX, 64 Kb 
RAM, manual en castellano, 20 
juegos comerciales y libro de 
programación por 33.000 Ptas. 
Francisco Bautista Ferraz. Tlf. 
252 21 74. C/. Narciso Serran. 
6. 28007 MADRID. CP.2. 
Vendo cartuchos Yie-Ar Kung 
Fu 2, Time Pilot, Hyper Ram- 
my y Antartic Adventure y cin- 
tas originales de Pastfinder, Su- 
per Chess y Oh! Mummy. To- 
dos con instrucciones. Agustí i 
Caries Forrellat Brossa. Tlf: 
(93) 716 41 92. Ctra. de Prats 
99. 08208 SABADELL. CP.2. 
Vendo cartucho LOGO Phi- 
lips para los MSX junto con 
manual de instrucciones. J. Ra- 
món Alvarez. Tlf: 94-499 84 77. 
BARAKALDO. CP.2. 

Vendo Spectravídeo SVI-728 
muy poco usado, con muchos 
juegos, todos los accesorios del 
ordenador, muchas revistas, 
joystick, etc, casi regalado. 
También vendo Spectrum 48 
Kb muy barato. Lo vendo todo, 
junto o separado por compra 
de un MSX-2. Francisco Javier 
Paz. Tlf: (91) 200 96 72. C/. Las 
Pedroñeras 14, 4.° 3. a . 28043 
MADRID. CP.2. 

Vendo ordenador ORIC AT- 
MOS de 48 Kb, teclado profe- 
sional, seis juegos y un procesa- 
dor de textos y cables para tele- 
visor y grabadora por sólo 
15.000 Ptas. Valorado en 
40.000 Ptas. Javier López. Tlf: 
(93) 841 71 74 a partir de las 
19,15 h. CP.2. 

Vendo juegos (código máqui- 
na) para SV-328 o SV-318, cin- 
tas originales y los mejores jue- 
gos. José Jorge Vaz. Tlf: (968) 
27 50 70. C/. Travesía de Vigo, 
n.°28,3.° B. Vigo-6. PONTE- 
VEDRA. CP.2. 

Vendo ordenador Toshiba 
HX-10 por 30.000 Ptas. Carlos 
Sánchez López. Tlf: 22 69 76. 
Avda. Portugal 48-50, 8.° B. 
37003 SALAMANCA. CP.2. 
Compro tarjeta controladora 
de disco y otros periféricos para 
Spectravídeo SVI-3 18/328. 
José M. Muñiz. C/. M. Hermi- 
da, 72-P1-5B. 39009 SAN- 
TANDER. CP.2. 
Vendo Spectravídeo SV-328 de 
80 Kb RAM, Super Expander 
SV-601 con 7 conectores, con- 
solador de discos SV-801, uni- 
dad de disco de 5 1/4 pulgadas 
SV-902 v cassette especialpara 
ordenador SV-903, con todos 
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los manuales y complementos, 
discos y cintas con juegos. 
Todo por 55.000 Ptas. Willy 
Miragall. Tlf. (93) 560 53 49 (a 
partir de las 21h). Av. Uno n.° 
4, 2.° 3. a . Sta. Perpetua de Mo- 
goda. BARCELONA. CP.2. • 
Vendo Sony HB-75P de 80 Kb, 
cassette Sony SDC-500 y lápiz 
óptico Sanyo MLP-001, cartu- 
chos y juegos. Francesc Rosado 
Safont.Tff. Í93) 384 41 67. Ba- 
dalonal(BARCELONA). CP.2. 
Vendo Spectravídeo 728 MSX 
y unidad de disco Toshiba 3.5" . 
Poco uso. Regalo discos con 
juegos y aplicaciones como 
dBASE II, WordStar, Cobol, 
Fortran, etc. Precio a convenir. 
Manuel Javier Lombao Iglesias. 
Avda. Rubine 13-15 2.° C. 
15004. LA CORUÑA. Telf. 
(981)27 83 42 de2a4ydel0a 
12. CP.2. 

Vendo Sony HB-101P con to- 
das conexiones, libros y revis- 
tas. Sólo se ha usado dos veces. 
José Juan Fernández. C/Con- 
cepción Edif. Alhambra 3.° C. 
GRANADA. Tlf. 20 26 39 (de 
8 a 14 horas). CP.2. 
Contacto con usuarios de Spec- 
travídeo SVI-328 para inter- 
cambiar información. Roberto 
Alcalde. C/Padre Aramburu 
n.° 5, 2.° C izq. 09006 BUR- 
GOS. Tlf. 2 108 76. CP.2. 
Vendo cartucho original de 
GREEN BERET de KONA- 
MI. Nuevo, con instrucciones 
en castellano por 4000 Ptas. 
Contrareemboíso. Interesados 
escribir al apartado de correos 
342 VITORIA (ALAVA).CP.2. 
Cambio curso de BASIC MSX, 
marca Sony en vídeo BETA ori- 
ginal y sin usar por tres juegos 
comerciales originales en cas- 
sette o por dos juegos si alguno 
es en formato de cartucho. Es- 
cribir indicando títulos a María 
Luisa Causo. C/Funicular 18, 
2° Iz. Valle de Trapaga. VIZ- 
CAYA. CP.2. 

Intercambio programas MSX 
originales. Tengo GOONIES, 
GREEN BERET, CAMELOT 
WARRIORS, etc. Me interesan 
THUNDER BALL, EQUI- 
NOX, LODE RUNNER. Ma- 
nuel Mateo Cordón. C/Santo 
Domingo n.° 7. 11006 CADIZ 
CP.2. 

Vendo ordenador Sanyo 64 Kb 
MSX y cassette nuevo por 
50000 Ptas. Regalo cartucho 
's Tennis", revistas y 
Margarita Porro. C/ 
o Ortuño n.° 8, 3.° 19. 
03500 Benidorm. ALICANTE. 
CP.2. 

Vendo Spectravídeo 728 y uni- 
dad de disco SVI 707, progra- 
mas, etc por 85.000 Ptas. Juan 
José Polero. C/Badal, 140, 5.°. 




Tlf. 332 38 14. 08028 BARCE- 
LONA. CP.2. 

Vendo ordenador Spectraví- 
deo 728 MSX de 80 Kb con ga- 
rantía, libros y 50 juegos origi- 
nales por 30.000 Ptas. Juan M. a 
Gorrotxategui. Tlf. (943) 88 54 
74. Guipúzcoa 16, 4.° C. 20240 
Ordiria. GUIPUZCOA. CP.2. 
Vendo HIT BIT 55 -P por 
17.000 Ptas. Incluyo en el pre- 
cios un cartucho PEETAN, 2 
cintas de ADVANCE (gusano 
y editor musical) además de los 
manuales y cables de conexión 
del propio ordenador. Francis- 
co Alarcón Hidalgo. C/L'alou 
27-bajos. S. Boi de Llobregat. 
BARCELONA. CP.2. 
Compro ampliación de memo- 
ria de 16 ó 64 Kb, urgentemen- 
te. Gonzalo Márquez Benítez. 
C/Ntra. Sra. Merced S/N. C/P. 
Aljoxaní. CORDOBA. CP.2. 
Intercambio programas origi- 
nales (juegos, aducativos y de 
aplicación). Poseo una gran 
cantidad de títulos. Juan Ma- 
nuel Sen. Tlf: 22 20 55. C/Gó- 
mez Ulla 18-22, 2.° D. SALA- 
MANCA. CP.2. 
Vendo ordenador PHILIPS 
MSX de 80 Kb sin estrenar por 
25.000 Ptas. David Altafaja. 
Tlf: 211 85 95. CP.2. 
Vendo Philips MSX VG-8010 
80 Kb más 30 programas por 
33.000 Ptas. Juan, Tlf: (954) 14 
18 07. CP.2. 

Vendo ordenador SVI-728 de 
80 Kb por 33 .000 Ptas o lo cam- 
bio por un Commodore 64/ 128 
Kb. Alfonso Montoya Quiles. 
Tlf: 43 16 12. Pza. Nueva n.° 5. 
Albox. ALMERIA. CP.2. 
Vendo Sony HIT-BIT 101P; 
casi no lo he utilizado. Buen 
precio, a convenir. M. a Teresa 
Martínez García. Tlf: (968) 61 
64 48. C/MÜlán Astray n.° 29. 
30500 Molina de Segura. 
MURCIA. CP.2. 
Vendo Sony HB-5P y amplia- 
ción de memoria a 32 Kb por 
20.000 Ptas. Ordenador sin 
ampliación por 15.000 Ptas. 
Luis Marco. Tlf: (96) 120 2 1 58. 
C/Diputación n.° 5, 8.°. Silla. 
VALENCIA. CP.2. 
Vendo MITSUBISHI MSX 80 
Kb modelo FX2. Regalo cinta 
con juegos. Precio a convenir. 
Tlf. (943) 39 63 36. Preguntar 
por JON. DONOSTIA. C/Ju- 
lio Urquijo 30, 5.° A. CP.2. 
Vendo ordenador Philips VG- 
8000 con ampliación de memo- 
ria de 16 Kb, 30 juegos comer- 
ciales, libros y revistas por 
20.000 Pts. Compro unidad de 
disco MSX. Juan M. a Gorrot- 
xategui. Tlf: (943) 88 54 74. 
Guipúzcoa 16,4.°C.20240Or- 
dizio. Guipúzcoa. CP.2. 
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UN LIBRO 
PENSADO PARA 
TODOS LOS 
QUE QUIEREN 
INICIARSE DE 
VERDAD 
EN LA 

PROGRAMA- 
CION BASIC 

Construcción de 
programas. El potente 
editor todo pantalla. 
Constantes numéricas. 
Series, tablas y 
cadenas. Grabación de 
programas. Gestión de 
archivo y grabación 
de datos. Tratamiento 
de errores. Los 
gráficos del MSX. 
Los sonidos del MSX. 
Las interrupciones. 
Introducción al 
lenguaje máquina. 



Y ADEMAS PROGRAMAS DE EJEMPLO 

Alfabético. Canon a tres voces. Moon Germs. Bossa Nova. Blue 
Bossa. La Séptima de Beethoven. La Flauta Mágica de Mozart. 
Scrapple from the apple & Donna Lee. The entretainer. Teclee un 
número. Calendario perpetuo. Modificación Tabla de colores 
SCREEN 1 . Rectángulos en 3-D. Juego de caracteres alfabéticos en 
todos los modos. Juego Matemático. Más grande más pequeño. 
Poker. Breackout. Apocalypse Now. El robot saltarín. El archivo 
en casa. 




Deseo me envíen el libro de los secretos del MSX, para lo 
cual adjunto talón de 1.500 ptas. a la orden de MAN- 
HATTAN TRANSFER, S.A. 

Nombre y apellidos 

Calle n.° 

Ciudad CP 

Este boletín me da derecho a recibir los secretos MSX en 
mi domicilio libre de gastos de envío o cualquier otro 
j cargo. No se admite contrareembolso. 

i Importante: Indicar en el sobre MANHATTAN 
¡ TRANSFER, S.A. 

«LOS SECRETOS DEL MSX» 

Roca i Batlle, 10-12 Bajos - 08023 BARCELONA 
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FALLO DEL 2.° CONCURSO 
DE PROGAMAS SONY 



Muchos programas, y de muy buena calidad, participaron en el segundo Concurso de SONY; nos 
consta que el jurado lo tuvo difícil. Pero tras las deliberaciones, ahí van los ganadores. 



SONY ESPAÑA S.A., convocó la 
segunda edición del Concurso de 
Programas MSX con la intención 
de proseguir en su tónica de estímulo 
a las iniciativas de los usuarios de orde- 
nadores de la norma MSX. Para ello, 
en su segundo Concurso de Programas 
MSX -al igual que en la primera- se es- 
tablecieron dos categorías: 

A) Programas de contenido científi- 
co, desarrollados por Centros Docen- 
tes, entre los especificados en los pla- 
nes de estudio vigentes. 

B) Programas Obres, con temas de li- 
bre desarrollo para usuarios privados 
de ordenadores MSX. 

La ingente cantidad de programas 
recibidos en la primera edición de este 
Concurso, celebrada en 1985, junto 



con la gran diversidad de temas que 
abarcó el apartado de temas libres, 
obligó a realizar una segunda clasifica- 
ción, teniendo incluso que efectuar 
una división del primer premio entre 
dos concursantes, puesto que la exce- 
lente calidad de ambos programas ha- 
cía muy difícil decantarse por uno u 
otro. 

Con esta segunda edición del con- 
curso de programas MSX, Sony Espa- 
ña quiere dar continuidad, año tras 
año, a esta iniciativa que, por la alta 
participación que ha mantenido en es- 
tas dos ediciones, cree conveniente re- 
petir puesto que estimula las ideas de- 
sarrolladas por los usuarios aficiona- 
dos de ordenadores MSX, tanto a nivel 
particular como en la categoría de Cen- 



tros Docentes. 

El jurado constituido para esta se- 
gunda edición del Concurso, estuvo in- 
tegrado por: 

D. a Elena Veiguela, Consejera Téc- 
nica para programas de nuevas tecno- 
logías -dependiente de la Secretaría 
General de Educación— Ministerio de 
Educación. 

D. Santiago Guillen, Director Gene- 
ral del Centro Divulgador de la Infor- 
mática de la Generalitat de Catalunya. 

D. Pere Botella, Profesor de Infor- 
mática de la Universidad Politécnica 
de Barcelona. 

D. a Birgitta Sandberg, de Manhattan 
Transfer S.A. 

D. Vladimir de Semir, Subdirector 
de LA VANGUARDIA. 



Concurso, celebrada en 1985, junto particular como en la categoría de Cen- de LA VANGUARDIA. 

Tadashi Hasunuma en Sony Gallen: El nuevo Director General de Sony España y Consejero Delegado en ¡a Sala de Exposición Permanente de produc- 
tos Sony en Barcelona, donde a partir del 10 de abril permanecerán expuestos los programas ganadores. 
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EFEMERIDES SONY 



Mayo 1946: La empresa Tokyo Tsus- 
hin Kogyo K.K. (Tokyo Telecómuni- 
cations Engineering Corporation) fue 
constituida por los Sres. M. Ibuka y A. 
Morita, con un capital escriturado de 
500$ USA. 

Febrero 1955: Por primera vez se uti- 
liza SONY como nombre de marca 
para productos de la compañía Tokyo 
Tsushin Kogyo K.K. 
Enero 1958: Se adopta el nombre 
SONY como nombre de la sociedad: 
Sony Corporation. 

Junio 1961: Se inaugura el Centro de 
Investigación Sony (Japón). Son ofre- 
cidas al público 2 millones de acciones 
en forma de ADR (Bonos de depósito 
americanos). 

Abril 1966: Inauguración del edificio 
SONY en Ginza: salas de exposición 



para compañías de fama internacional 
en Tokio. 

Mayo 1971: Las fábricas de Sendai, 
Inazawa e Ichinomiya son reestructu- 
radas y se convierten respectivamente 
en Sony Corporation y Sony Ichinomi- 
ya Corporation. 

Marzo 1973: Constitución de Hispa- 
no Sony, S.A. (cambio de denomina- 
ción a Sony España, S.A. en marzo 
1982). 

Agosto 1979: Constitución de Sony 
Prudential Life Insurance Company 
Ltd. (Japón). 

Septiembre 1983: Inauguración de la 
nueva fábrica de Sony España, S.A., 
en Parets del Valles (Barcelona). 
Noviembre 1985: Sony desarrolla el 
primer videodisco digital en el mun- 
do. 



CATEGORIA CENTROS DOCENTES 



PREMIO DE 1.000.000 PTAS. 

CENTRO DOCENTE: LICEO EUROPA 
AUTOR IOSEVICENTE BELTRAN PRIETO 
LA LINEA DE LA CONCEPCION (CADIZ) 
PROGRAMA: MOTOR 4 

CATEGORIA GENERAL 



ler. PREMIO DE 500.000 PTAS. 

AUTOR: MIGUEL RAMIS AMENGUAL 
PALMA DE MALLORCA 
PROGRAMA: DRAW 

2os. PREMIOS: 
PREMIO DE 300.000 PTAS. 

AUTOR: EMILI SETO PAMIES 

REUS (TARRAGONA) 
PROGRAMA: MATHS GRAPHS 

PREMIO DE 300.000 PTAS. 

AUTOR ]OAN PUYAL CANET 
LA ROCA DEL VALLES (BARCELONA) 
PROGRAMA. GRAFO 

3os. PREMIOS 
PREMIO DE 100.000PTAS. 

AUTOR: JOS? MANUEL RODRIGUEZ SANCHO 

PROGRAMA: HADES 

PREMIO DE 100.000 PTAS. 

AUTOR- HUMBERTO MARTINEZ BARBERA 
' CARTAGENA (MURCIA) 
PROGRAMA: SIMPHONY 

PREMIO DE 100.000 

AUTOR: BERNAT ROMANI CORNET 
BARCELONA 
PROGRAMA: SONIDOS 



El programa ganador en la categoría 
de Centros Docentes (como puede ver- 
se en el cuadro adjunto) fue MOTOR 4 
del Liceo Europa de La Línea de la 
Concepción, programa educativo que 
explica de una forma interactiva el fun- 
cionamiento de un coche (motor, en- 
cendido, carburación y cambio) pu- 
diendo controlar todos los dispositivos 
mediante el joystick. El primer premio 
de la categoría general, que fue a parar 
a Palma de Mallorca para Miguel Ra- 
mis, DRAW es un interesante progra- 
ma de gráficos, así como los dos segun- 
dos siendo MATHS GRAPHS un inte- 
resante programa de representación de 
funciones matemáticas y GRAFO un 
programa de gráficos de gestión. 

Así como el primer y segundos luga- 
res fueron acaparados por los gráficos, 
dos de los tres programas que se lleva- 
ron terceros premios (vaya lío de nú- 
meros) trataban con el sonido, SIM- 
PHONY y SONIDOS, mientras que el 
restante tercer premio se lo llevó un ex- 
celente juego de aventuras llamado 
HADES. 

Como puede verse, a la hora de valo- 
rar los programas el jurado tuvo espe- 
cialmente en cuenta cuales de ellos po- 
tenciaban las peculiaridades gráficas y 
de sonido de los equipos MSX, que 
como sabemos, son de un atractivo in- 
comparable para los usuarios de orde- 
nadores domésticos, entre los que la 
norma MSX es líder absoluta. 

¿Para cuándo el próximo concurso, 
SONY? 




Te encuentras en un oscuro 
castillo abandonado, inten- 
tando encontrar una llave 
de oro para romper el he- 
chizo que te impide salir. 
Para lograrlo tienes que ha- 
cer estallar los barriles de 
TNT y esquivar los mons- 
truos y la corriente de lava. 
Un apasionante juego de 
aventura. 



Nombre y Apellidos: 



Dirección: 



Población: 

Provincia: 

□ Deseo recibir: 



... CP. 



| El importe de mi pedido lo hago efec- 
tivo mediante: 
I □ Cheque adjunto a nombre de: 
■ MSX CLUB DE CASSETTES 
1 C/RocayBatlle, 10-12, bajos. 
I 08023 Barcelona 



El basic paso a pasoi 



SEGUIMOS CON 
LOS BUCLES 



,Por Willy Miragall, 



Debido a la gran importancia 
que tienen los bucles seguimos 
hoy con nuevos ejemplos que 
puedan haceros notar la impor- 
tancia que tienen dentro de 
nuestros programas. 



Antes de seguir con nuestro repa- 
so a los bucles vamos a añadir 
nuevas instrucciones a las que 
ya conocemos. Estas instrucciones nos 
van a permitir modificar el formato en 
que hasta ahora hemos utilizado 
PRINT. 

La instrucción LOCATE X,Y colo- 
ca el cursor en las coordenadas de la 
pantalla que indiquen X e Y. Aclare- 
mos que X e Y no tienen por qué ser va- 
riables. Son simplemente una forma de 
expresarnos. Lo veréis más claro con 
los ejemplos que os damos a continua- 
ción. 

10 LOCATE 7,11 

20 PRINT «Hola amigos de MSX- 
Club" 

Estas dos líneas de programa harán 
que el texto incluido en el PRINT apa- 
rezca centrado en la pantalla, exacta- 
mente a partir de la posición 7 horizon- 
tal y 11 vertical. 

El funcionamiento de este programa 
es muy simple. La línea 10 coloca el 
cursor en la fila 11, columna 7, y la si- 
guiente línea imprime el mensaje en la 
pantalla, en la posición que le indica el 
cursor. 

DIBUJAR CON ESTRELLAS 

Para empezar con los ejemplos de 
bucles vamos a hacer un programa que 
haga una línea vertical de estrellas en la 
pantalla. Este programa, si no supiése- 
mos programar bucles sería: 

10 LOCATE 20,0 

20 PRINT"*" 

30 LOCATE 20,1 

40 PRINT"*" 

50... 

Y así hasta la línea 
450 LOCATE 20¿3 
460 PRINT"*" 

Pero gracias a que conocemos los 
bucles FOR, este programa queda muy 
simplificado, y de la forma. 
. 10 FOR 1=0 TO 23 

20 LOCATE 20,1 

30 PRINT"*" 

40NEXTI 

Para poder pasar del programa largo 




a la versión FOR no hay más que fijarse 
en las instrucciones que se repiten. Es- 
tas instrucciones son las líneas 20 y 30 
del bucle. Lo único que cambia es el se- 
gundo parámetro del LOCATE, co- 
rrespondiente a la coordenada vertical. 
Esta es la razón de que utilicemos una 
variable para este parámetro, la varia- 
ble I, que varía entre y 23. 

Otra forma de entender el bucle, tal 
vez algo más sencilla, es ver que la I es 
sustituida primero por 0, luego por 1, y 
así hasta 23, repitiéndose mientras tan- 
to las líneas 20 y 30, situadas entre el 
FOR y el NEXT. 



Las líneas que componen el corazón 
del bucle, 20 y 30, están un poco más a 
la derecha de lo normal. Esto no es 
obligatorio, pero, como ya comentába- 
mos en el pasado número, ayuda mu- 
cho a la hora de saber cuáles son las ins- 
trucciones que se repiten dentro del 
bucle. 

CENEFA 

A continuación os incluimos un pro- 
grama que dibuja una cenefa en la pan- 
talla. En realidad vamos a recuadrar la 
pantalla mediante estrellas, utilizando 
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para ello la instrucción FOR. Espera- 
mos que no os sea difícil entender el 
programa, y el uso de la instrucción 
FOR. 

10WIDTH40 

20FORX=0TO39 

30 LOCATE X,0 

40 PRINT "*" 

50 LOCATE X,22 

60 PRINT"*" 

70NEXTX 

80 FOR Y=0TO22 

90 LOCATE 0,Y 

100 PRINT"*" 

110LOCATE39,Y 

120 PRINT "*" 

130NEXTY 

140 LOCATE 7,11 

150 PRINT "Hola amigos de MSX- 
Oub» 

Este programa, algo más largo de los 
que hemos necho hasta ahora, no es, ni 
mucho menos, el mejor que podíamos 
haber hecho. Tal vez por un exceso de 
amor a los bucles no nos hemos dado 
cuenta de que las líneas 10 a la 70 po- 
dían haber sido sustituidas por: 

10 LOCATE 0,0 

20 PRINT «*******... 40 estre- 
llas...*******" 

30 LOCATE 0^2 

40 PRINT «*******...40 estre . 
¡j as ******** 

Con esto os queremos hacer refle- 
xionar. Los bucles son muy interesan- 
tes; pero es preferible no utilizarlos si 
pueden ser sustituidos por algo más 
simple, como en este caso. 

Esta última solución no es, ni mucho 
menos, la mejor, ya que podíamos ha- 
ber utilizado la instrucción STRING$, 
de la que hablaremos más adelante. 
Vamos, no obstante, a dar algún otro 
ejemplo de uso de los bucles 
PRINT. 



con 



PIRAMIDES 



Otro ejercicio típico de uso del LO- 
CATE con bucles es la construcción de 
pirámides. Damos a continuación un 
programa de dibujo de pirámides. 

10FORX=1 TO10 

20 LOCATE 20-X,X 

30 FOR 1=1 TOX 

40 PRINT"*"; 

50NEXTI 

60NEXTX 

Este ejemplo es algo más peliagudo 
que los anteriores, ya que hemos inser- 
tado dos bucles, uno dentro de otro. 
En este tipo de programas conviene in- 
tentar entenderlos a partir del bucle 
más interno. 

El bucle de las líneas 30 a 50 escribe 
tantas estrellas como indique la varia- 




ble X. El punto y coma que sigue al 
PRINT de la línea 40 indica que, tras 
imprimir ese carácter, deje el cursor en 
la misma línea. Gracias a esto las estre- 
llas aparecerán en la pantalla una de- 
trás de otra. 

Ahora sustituid mentalmente esas 
líneas por la frase "Escribe tantas estre- 
llas como indique X". Entenderéis el 
programa sin ninguna dificultad. 




Este es un buen momento para echar 
la vista atrás. Ya conocemos las ins- 
trucciones necesarias para poder reali- 
zar nuestros primeros programas. 

A partir del próximo número co- 
menzaremos a tratar las instrucciones 
gráficas. Esto no quiere decir que ya 
hayamos superado el BASIC elemen- 
tal. Nada más lejos de la realidad. He- 
mos decidido tratar los gráficos porque 
permiten "ver" nuestros programas. Es 
muy fácil ver en qué nos hemos equivo- 
cado al definir un bucle si obtenemos 
una línea fuera de lugar, o cualquier 
otra deformación de un gráfico. 

Pero antes de iniciarnos en el apasio- 
nante mundo de los gráficos por orde- 
nador vamos a realizar un breve repaso 
a todo lo visto hasta ahora. 

* Todo programa en BASIC está 
compuesto por un conjunto de líneas 
numeradas que contienen instruccio- 
nes BASIC. Podemos numerar las lí- 
neas como queramos, aunque normal- 
mente se hace de 10 en 10. 

Las instrucciones BASIC vistas aho- 
ra son 



* PRINT, escribe en la pantalla el 
mensaje que le sigue. El ordenador es- 
cribirá un número siempre que le sea 
posible. Cuando queramos que aparez- 
ca un texto debemos situarlo entre co- 
millas. 

Podemos separar con punto y coma 
diferentes textos o números que quere- 
mos que aparezcan en la misma línea. 
Si utilizamos comas (en lugar de pun- 
tos y comas) se dejará un espacio entre 
los diferentes textos escritos. 

Podemos dejar un punto y coma (o 
coma) al final de la línea PRINT, con lo 
que indicamos que el siguiente PRINT 
se realice en la misma línea. 

Ej: PRINT "Dos más dos es: a ;2+2 

* INPUT, hace que el ordenador es- 
pere una respuesta del usuario. Pode- 
mos incluir un texto explicativo entre 
comillas. Al final del INPUT debe 
siempre aparecer una variable en la que 
se almacenará la respuesta del usuario. 

Si hemos introducido texto explica- 
tivo la variable debe ir separada del 
texto (entre comillas) por un punto y 
coma. 

La variable debe ser del tipo apro- 
piado para almacenar la respuesta del 
usuario: numérica si preguntamos un 
número y de caracteres (con $) si pre- 
guntamos un texto. 

El comando INPUT siempre añade 
un interrogante al final del texto expli- 
cativo. 

Ej: INPUT "¿Cuántos años tienes"; 
EDAD 

INPUT "¿Cómo te llamas";N$ 

* IF... THEN..., es una estructura 
que nos permite seleccionar si una ins- 
trucción se ha de ejecutar o no depen- 
diendo de una condición. La instruc- 
ción (o instrucciones) que siguen al 
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THEN se ejecutarán únicamente si se 
cumple la condición que se encuentra 
entre el IF y el THEN. 

Ej: IF A>B THEN PRINT "A es 
mayor que B" 

* GOTO, nos permite modificar el 
flujo normal del programa. Al encon- 
trar una instrucción GOTO el progra- 
ma continuará en la línea indicada por 
el número que sigue a GOTO. 

Ej: GOTO 40 

* BEEP, produce un breve pitido 
del altavoz de nuestro televisor o moni- 
tor. 

* COLOR, cambia el color tanto del 
texto como del fondo de la pantalla. 
Deben seguir dos números a COLOR, 
el primero el código de color que que- 
remos tengan las letras y el segundo el 
del fondo. 

Ej: COLOR 15,4 



* CLS, borra la pantalla y sitúa el 
cursor en la esquina superior izquierda 
de la misma. 

* LOCATE, coloca el cursor en las 
coordenadas de la pantalla especifica- 
das por los dos números que siguen. El 
primero es la coordenada horizontal y 
el segundo la vertical. 

Los límites de la pantalla son, en ver- 
tical, de a 23 (ó 22 si aparecen las te- 
clas de función en la pantalla), y en ho- 
rizontal de a 39 (dependiendo este úl- 
timo de si hemos utilizado o no la ins- 
trucción WIDTH). 

Ej: LOCATE 10,12 

* FOR.. TO... NEXT, permite la re- 
petición de las líneas de programa en- 
tre FOR y NEXT tantas veces como in- 
dique el FOR. 

Ej:FORI=lTO 10 
PRINT I 



NEXTI 

Podemos modificar el paso en que se 
incrementa la variable (normalmente 
de uno en uno) por medio del coman- 
do STEP. 

Ej:FORI=lTO 10 STEP 2 
PRINT I 
NEXTI 

En el bucle FOR podemos utilizar 
cualquier tipo de variables. Fijaos en la 
forma en que se utiliza el FOR y en 
cuándo se debe utilizar. 




Finalmente una nueva instrucción, 
WIDTH. 

* WIDTH, modifica el ancho máxi- 
mo de la pantalla. Si hacemos WIDTH 
10, la pantalla quedará reducida a 10 
caracteres de ancho. El máximo núme- 
ro que podemos utilizar con WIDTH 
es 40, en los MSX de primera genera- 
ción y 80 en los MSX de segunda gene- 
ración. 

Esperamos que este breve resumen 
os sirva de recordatorio. 



EJERCICIOS 



1.- Dibujar vuestro nombre en la 
pantalla mediante estrellas. Utilizad 
bucles siempre que sea posible. Este 
ejercicio es largo; pero no excesiva- 
mente difícil. 

2 - Llenar toda la pantalla con la le- 
tra "A". 

3 - Dibujar en la pantalla una A que 
ocupe el máximo tamaño en la panta- 
lla. 

SOLUCIONES A LOS 
EJERCICIOS DEL MES 
PASADO 

Una posible solución al problema de 
la tabla de multiplicar con FOR es: 
10 INPUT "¿Qué tabla";N 
20 FOR 1=1 TO10 
30 PRINT N;"*";I;"= ";N*I 
40 NEXTI 

Esperamos que no os haya sido exce- 
sivamente complicada la resolución de 

este ejercicio. 

El segundo problema propuesto en 
nuestro último número era el del cálcu- 
lo del factorial de un número. Una so- 
lución puede ser: 

10 INPUT "¿Que número";N 

20 F=l 

30 FOR 1=1 TON 

40F=F*I 

50 NEXTI 



60 PRINT "El factorial 

"es*0 ; Á 

Tercer problema, realizar las 10 ta- 
blas de multiplicar. Existen muchas 
posibles soluciones; pero la mayor par- 
te deben utilizar dos bucles anidados, 
es decir, uno dentro de otro. Observad 
el siguiente programa: 

10FORI=1TOW 

20 PRINT "La tabla del";h"es" 

30FORJ=1TOW 

40 PRINT I;"*"J;"=";I*J 

50 NEXT J 

60 NEXTI 

Como ya hemos comentado, para 
entender mejor el programa hay que 
empezar a mirarlo desde dentro. El bu- 
cle de las líneas 30, 40 y 50 nos es muy 
familiar, ya que escribe en pantalla la 
tabla indicada por la variable I. Cam- 
biar las líneas 30 a 50 por la frase "Es- 
cribe la tabla del I" y veréis como el 
programa os aparece mucho más claro. 

Finalmente el último problema, es 
muy fácil, aunque algo diferente a los 
anteriores. 



10 INPUT 



,datos?»;N 



20S=0 
30 FOR 1=1 TON 
40 INPUT "Entre dato",D 
50S=S+D 
60 NEXTI 

70 PRINT "La media es";S/N 
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1. "-Podrán participar todos nuestros lectores 
cualquiera sea su edad. 

2. "-Los programas se clasificarán en tres cate- 
gorías: 

Educativos 
Gestión 
•.ntretenimiento 

3. "-Los programas deberán ser remitidos gra- 
jos en cassette debidamente protegidas, dentro 

ie su estuche de plástico. 

4. °— No entrarán en concurso aquellos progra- 
mas que ya hayan sido publicados por otros me- 
dios o plagiados. 

5. °-Junto a los programas se incluirán las ins- 
trucciones correspondientes, detalle de las varia- 
bles, ampliaciones posibles y todos aquellos co- 
mentarios que el autor considere de interés. 

6. °-Todos los programas han de estar estructu- 
rados de modo claro, separando con REM los 
distintos sectores del mismo. 



PREMIOS 

7. --MSX CLUB OTORGARA 
GUI ENTES PREMIOS: 

IOYSTICK DE ORO MSX CLUB Y UNA 
UNIDAD DE DISCO AL MEJOR PROGRA- 
MA DEL AÑO. 

Además mensualmentc se premiarán los pro- 
gramas publicados del siguiente modo: 

10.000 pts. los programas Educativos 

10.000 pts. los programas de Gestión 
6.000 pts. los programas de Entretenimiento 

FALLO Y JURADO 

8. "-EI Departamento de Programación de MSX 
CLUB DE PROGRAMAS hará la primera selec- 
ción de la que saldrán los programas publicados 
en cada número de la revista. 

9. "-Los programas no se devolverán salvo que 
así lo requiera el autor. 

10."-La elección del PROGRAMA DEL AÑO se 
hará por votación de nuestros lectores a través de 
un boletín que se publicará en el mes de octubre 
de 1987. 

1 1 ."—El plazo de entrega de los programas finali- 
zará el 31 de octubre de 1987. 
12."-E1 fallo se hará conocer en el número de di- 
ciembre de 1987, entregándose los premios en el 
mismo mes. 



Remitir a: 



CLUS DE PROGRfflRS 



J- MI PROGRAMA 



Roca i Batlle, 10-12, bajos 08023 Barcelona 



Programa 



Por Vicente Uceda Alvarez 



— 



FISICA 



Completísimo programa edu- 
cativo sobre física general. In- 
cluye temas sobre lentes y espe- 
jos, mecánica y física de partícu- 
las. Un programa excelente con 
unos soberbios gráficos. 



1 'ttmtttmmmtmtmtmtm 

2 ttt FISICA tu 

3 iU por: Ut 

4 'ttt VICENTE A. UCEDA Ut 

5 ' ttumummmnmmmtm 

10 GOTO 80 

20 PSET (10, 1B0) , l:PRINTfl, "PULSA space 
PARA NNTINUAR" : RETURN 
30 SCREEN 0:KEY OFF: CLS: COLOR 1,15,15: 
LOCATE 7,2:PRINT"V OCABULARIO 

": LOCATE 7,3:PRINT" --- 

— " : RETURN 

40 SCREEN 2:COL0R 1, 10, 12:CLS:0PEN "GR 
Pí-FOfi OUTPUT AS ll:PSET(40.15),10:RET 
URN 

50 SCREEN l:CLS:PRINT" U INSTRUCC 
IONES U":PRINT:PRINT"Escribe «s» para 
el dato que quieras hallar. Introduce 
los datos en las medidas que se te in 
dican. ":PETURN 

60 LINE <AX,AY)-<X,Y),5:A(R)=X-128:B(R 
)=Y-96: R=R+1 : X=AX: Y=AY: RETURN 
70 ' 

80 ' UU» presentación UUt 
90 ' 

100 CLEAR:OPEN "GRP:"F0R OUTPUT AS #1: 

COLOR 1,11,15:SCREEN 2 

110 PSET(15, 132) , 1:DRAW"FIR1E1R2E1R1E1 

P7F3R2F1R1F5R1F1R1F7R1F3R1F2R1F3R1F1R3 

F1R3F1R5E1R3E1R4E2U1E1U1E2R5U1E3R6E5UI 

E1U1E1U1E1U1E1U1E1U1E1U1E2U1* 

120 DRAN"Li62L2H3UlülGlLlG2L2U3EtG3L3H 

1 U4G3L 1 6 1 L3U3L 1 D2L2H2U2D 1 G 1 D2L I H2U4D6L 

2HIU3D3F3R5F1R11F1R8E1R6D3G1D1G1D2G1D1 

6ÍH1NL1H2L10H1L461L1' 

130 PSET (111,138),1:DRAN'61H1L5D1G1D1 

L17H1L3K1L2U2H1U3H1U2H1U3H1U9E1U4L5D26 

1D3G1D2L4U5E1U6E1U4E1U3E1U5H7U1L2U1L2H 

1E1U1E1U2E2F1D1F1D1R4E1R1E3U1E2U1G3D26 

2HI" 

140 DRAM'E1U2E1U1E3R12D2L1G1L4G1LIG2DI 

G1D1G4L2G1F1R1F1D2R1U1E1U1R2F2D2F1R2F1 

R5E1R1E1R1E1R1E2U1E1U1L1G2L1G1L1G2L161 

L6H1E1R3E1R1E1R1E2L161L161L5H3" 

150 DRAWUIE1F4R2E3R1FIR1U1H2U1L1H1L1H 

1L262L1G1L2U1E1U1E1R4E1R5F1D1F2D2F1D1R 

1E1U2H2U1H2U1H1L2U2R1E3H2L10G5L1G4D1G1 




D4L2U3E1U2E4U1E4U1NE3R2E2R1U1R10» 

160 PSET(75,63U:DRAN"L361L1G5ÜIG4D1G 

1D1G1L1G1D161D1G1D163H1U1E1U2E1U1E1U2E 

1U1E2L1B1D1G2D262D161D1G1D161L3H4L1H1L 

4G1L1G3D1G1D3G1D1F1R1U2E1U2E1U1E1R6F3D 

4F161L161D5L2" 

170 PSET(36,93),1:DRAN"D5R1D2R1D1F1R16 
1F1R1D5R1F1R3F1D1G1D4L3D1R1F1R1F1D2L16 
1L2H1L1H1U10H7U4L1D1G1U6D3L2U4HID4H2U3 
E1U4E1U1E1U1E1U1E2R3E1R3F1R2F1R2E3U2E1 

1B0 DRAN-U2E1U2E1U3L1D161D261D162L1G1L 

1E4U1E1U2E1U3E1U2E3U1L162D1G1U2E3U2H1U 

2E1U2L164L161L361L7H1L4D663R2E3R1E1R66 

1L161L1G1L2G1L162F1R2" 

190 DRAH"E1RIE1R2E1R5D1G1D1G1L1G1L2G1L 

3G2F1R3E1R3D369L2H1U3E1U1E2U1E2H1L162L 

IGIH1E1U1E2U1E2HIL2G2D1G1D1G1DIG1D2G1D 

1G2H1U5E1U2E6H1L161H1' 

200 DRAWE2U1E3U2G1L1G2H1E1UIE1U1E6R1F 

1G1D1R2E1R8E1R1E1R1E3R1E4R7F1H1L1H1L1H 

1L2H1L1H1L1H2L2H2L1D1R2F1R1F1DIG1L161L 

1G1L162L167L1HIE1U3R1U1E1R1U1E1U1E1U1' 

210 DRAN-E1U1E2R1E2R1E1R1E2R1F1R5E1R4U 

3R4L662L761L2G5L164D1615D1G2D2G1D1G1D2 

61D2G1D1G1D3G1D3G1D5G1D7G1D6R2U5E1U2E1 



U2E1U1E1U2E1R1F1DBG1D2G1L1H2D12F1D2F1D 
1FID1R1F1R2F1R1F1D1F1D2F1D2F1D1F1Ü2FIG 
2L1G1L1D1G1L1G5" 

220 PSET(97,79):DRAH"H1U1H3L1H2L1H2D2R 

1F4D1F1R1F2R1D1063L162L1D1R1D261E7U1D1 

F1D2L3R363L3R4G1DIG1D161D161L164L1G5F1 

E4R1E5F1D3R1F1R4F1D1F1E1R3E1R2E1R1E1R1 

U1E1R1F1D1F1RIF1R3H1L1H1L1H3L1G3L5H2U6 

H161D5L5U4E1R1E1R1D1F1E1U3H1U4H1U3H1D4 
■ 

230 PSET(109,73):DRAH"R2E2R5F2D3F1D6F1 

D5F101G1H1U2H2U2H1B2D1L162R4L6H1G1D1F5 

R1F1R3D2H1LIG1D1L1H1L1H2U2H1U1H1U2H1U1 

E1F1D1F1R4H2L1H1U3E2R2F1R2E3L861L1G1H1 

61D2G1H1UIH1E1U1E1U1R3E1H2" 

240 PSET(67,47):DRAN , L1G3U8E1R2E1R1E1L 

3D1L2D161D161D1G4D1F1G2D2R1F1D2F162DIG 

1D1R1E2F1D4R2E2U1E1U1E1R1E1R1E1R1E2R1E 

1R1E1RIE1R1E1R4H1L261L1G1L1G1L2G1LIG1L 

4D1G3U3H1U2H2R3E1R1E1R1E1R1E1R1E1R2E1R 

3E1R2H64.53U2H1" 

250 PSET(74,35):DRAH"R2F1R1F2R2H4U1C11 
R2CIR1F5C1 1R5C1U2L1U2H1U1C1 1U4H4C1P16F 
1R1C11U4C1L2G1L1G1L2G1L161C11F5D8C1F2R 
1F1R1FIR2F1R2F1R1FIR1F1R1F1E1D3R1D3FID 
2F1D1C11D4" 
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260 DRAU-C1L1U1L1H2L1H2L2H1L4H1L3ULL6C 

11F3C1F4R1F2R6F1R2F1R1F1R1F1R1D1R1F2C1 

lD8ClD4FtD3CllH110,28ClR2FlRlF5DlFlDlF 

BR1D1F1R1F2R1F2D1F2" 

270 DRAITC11R2D5C1H2L1U1L1U1H4C11H2C1D 

2F1D1F1D1F1D2F1D2F1D2F1D1F1D1F1D1CUD2 

R1C1R4D2L161L1U3Ü3F2D2R361R2G1R2D1C11L 

5C1F5E1H4C11R4D6C1H261F3G1U1L1U1L2U2D4 

R1FIR1D1R2D1R1D1R2D1C11L6U4C1L1HIL1F1C 

11H3D2C1F3D1H2D2F1D1H2S1D3" 

280 DRAWF2D1F1D1R1DIC11U2L2C1U2H1U1L1 

U1L1U2H2L1H1L3G1D161D8F1C11U6C1L2U2H1U 

1D161D5L3U4H1L2HIL1D1F2C11R1E2C1R2U8' 

290 PSET(124,107):DRAWC1D3G1D2G1D1G1D 

1G1D1U2L1U3L1H1L1D2F1R1F2 

300 PSEK93, 112) :DRAW"C1L4D1L1 B :REST0R 

E 3190 

310 FOR 1=1 TO 20:READ A, B: PAINT ( A, B) : 

mi 

320 PSET ( 160, 36) , 8: DWU17R13D14R9U6L 
6UBR13D14R3U14R19D16L2U6L4D6L2U14L3D2L 
2U2L4D12R4U2R2D4L13U14L9D4R6D10L13U14L 
9D6R3D2L3D7L1U8R3L3U8R11D14R11U8L6U6R1 

5D6L4U5" 

330 LINE(159,49)-(248,164),4.BF 
340 ' 

350 ' ttttt elección de opción ttttt 
360 ' 

370 PSET (70, 175) , 11: PRINTtl, "ELIGE OP 
CION" 

380 COLOR 15:PSET(187.56),4:PRINTtl,"H 
ENU" 

390 PSET(163,88).4:PPINT#l, n l-QPTICA" 
400 PSET ( 163, 112) f 4: PRINTtl f "2-HECANIC 
A' 

410 PSEK163, 136) , 4: PRINTtl , "3-F. NUCLE 
AR":BEEP 

420 IMINKEYísIF U*"" THEN 420 

430 IF I$=T THEN 470 

440 1F I$="2" THEN 1430 

450 IF I$="3" THEN 2720 

460 IF líi'r QR I$>"3" THEN 420 

464 ' 

465 'ttttt lentes ttttt 

466 ' 

470 LINE (159,69)-(248,164),4,BF 

480 PSET (163, 88) , 4: PRINTtl , " 1 -LENTES" 

490 PSETÍ163, 136) , 4: PRINTtl , "2-ESPEJOS 
■ 

500 I$=INKEY$ 

510 IF THEN 570 

520 IF 1$="2" THEN 980 

530 IF IIOT OR U<>"2- THEN 500 

540 ■ 

550 'ttttt gráficos explicativos tttt 
560 ' 

564 'ttl di bu jo lente convergente ttt 
570 SCREEN 2: COLOR 11, 1,1: CLS: PSET (16, 



8) , 1 : PRINTtl , "LENTE CONVERGENTE" 

580 CIRCLE(128,96),50,4,,,5:PAINT(128, 

96),4:LINE(20,96)-(235,96),8 

590 PSET ( 128-34, 93) , 1 : PRINTtl ."•" : PSET 

(128+30, 93), 1: PRINTtl, "•" 

600 PSET (83, 1 1 1 ) , 1 : PRINTtl , "f oco' : PSET 

(75,119), l:PRINTtl, "imagen" 

610 PSET(178,B0).12:DRAW"C12D15C5D15L1 

U15C12U15Rl":PRINTtl," objeto" 

620 PSET(178, 110), ll:DRAN"il2B, 110135, 

65il78,U0':PSET(178,80):DRAN"il28,80i 

35,125ml78,80":PSET(128,96),l 

630 DRAtTc3mll3,156":PRINTtl, "centro o 

ptico' 

640 PSET(35,125):DRA«"C12U29C5U29L1D29 
C12D29ClL16":PRINTtl, "iaagen" 
650 GQSUB 20 

660 I$=INKEY$:IF ISO' "THEN 660 
670 ' 

680 'ttl dibujo lente divergente ttt 
690 ' 

700 CLS: PSET (16,8) , 1 : PRINTtl , "LENTE D 
IVERSENTE" 

710 CIRCLE(113,96), 50,4,4.7124,1. 5708, 
5 

720 CIRCLE(146,96), 50, 4, 1.5708,4.7124, 

c 

J 

730 LINE(146,46)-(1!3,46),4:LINE(146,1 
46)-(113,146),4:PAINT (135, 130), 4 
740 LINE(20,96)-(235,96),8:PSET(94,93) 
,l:PRINTtl,".":PSET(158,93),l:PRINTtl, 

750 PSET (148,55) , 1 : PRINTtl , "í oco" : PSET 

(140,63), l:PRINTtl. "virtual" 

760 PSET ( 128, 96) , 1 : DRAW"c3ml38, 160c 1 1 2 

0":PRINTtl, "centro óptico" 

770 PSET (168, 96) , 4: DRAH"u201 Id20c3d20r 

lu20del0":PRINTtl, 'objeto" 

780 PSET(168,76),ll:DRAW"nm20,146ml28, 

76m41 , 20": PSET ( 168, 1 16) , 1 1 : DRAW"m20, 3 

7il28,ll6i20,179" 

790 FOR 1=0 TO 500:NEXT I : L INE ( 1 28, 76) 
-(235,140), 4:LINE(128,116)-(235,50), 3 
800 PSET ( 147, 96) , 4: DRAH'uBl Id8c3d8r luB 
":LINE(147,96)-(167,126),7:PRINTtl,"i B 
agen" 

810 GOSUB 20 

820 I*=INKEY$:IF !♦<>• "THEN 820 
825 ' 

830 'ttt vocabulario ttt 
835 ' 

840 GOSUB 30 

850 PRINT:PRINT'C0NVER6ENTE: Lente que 
hace converger los rayos paralelos al 
eje en un focosituado al lado contrari 
o." 

860 PRINT:PRINT"DIVERGENTE: Lente en la 
que los rayos que entran paralelos al 
eje salen di-vergentes y sus prolonga 



ciones (azul y verde) se convergen en 
un foco vir-tual." 

870 PRINT: PRINT'EJE PRINCIPAL: Línea re 
cta (rojo) in- definida que une los ce 
ntros de cur- va tura de sus caras." 
880 PRINT:PRINT"CENTRO OPTICO:Es el pu 
nto del eje principal en el cual lo 
s rayos que atraviesan la lente no s 
ufren desvia-cion." 

890 PRINT: PRINT" PULSA space PARA CON 
TINUAR" 

900 I$=INKEY$:IF UO" ■ THEN-900 
910 GOSUB 30 

920 PRINTsPRINT'FOCO PRINCIPAL:E1 punt 
o del eje prin-cipal donde se reúnen 1 
os rayos que atraviesan dicha lente ( 
foco iiagen, 1. convergente) o las prol 
ongaciones de estos al divergir (foco 

virtual, 1. divergente)." 
930 PRINT: PRINT" VIRTUAL: Imagen situada 

detras de la lente": PRINT: PRINT'REAL 
slnagen situada entre el objeto odelan 
te de el y la lente" 
940 PRINT:PRINT"REFRACCION:Cambio de d 
ireccion que experimenta la luz al p 
asar de un le-dio a otro de diferente 
densidad' 

950 PRINT:PRINT"Pulsa <A> para verlo d 
e nuevo. ":PRINT'Pulsa SPACE para volve 
r a empezar." 

960 I$=INKEY$:IF I$=" " THEN 70 

970 IF I$="a" OR I$="A" THEN 570 ELSE 

960 

974 ' 

975 'ttttt espejos ttttt 
980 ' 

990 'tttt dibujo espejo planottttl 
1000 ' 

1010 COLOR 11, 1, 1: SCREEN 2:CLS:PSET (1 

6,8), l:PRINTtl. "ESPEJO PLANO" 

1020 PSET(128,156),5:DRA«"ul2012dl20rl 

Ul20r2clml48,140c6ml63,55cllml28,55c4m 

91,55c6ml06, 140c4ml2B, 140c 1 lml48, 140ml 

28, 150nc4«106, 140c 1 1«178, 171 " 

1030 PSET (163,55) , 11: DRAN"i128,45c4m9 

l,55ncllml65,35d2r45":PRINTtl."reflex 

ion" 

1040 PSET (36,100),i:PRlNTtl."imagen-> 
":PSET(153, 116) , l:PRINTtl. " 4-ob jeto" 
1050 60SUB 20 

1060 I$=INKEYf:IF I$<>" " THEN 1060 
1070 ' 

1080 'ttttt dibujo espejo concavoltttt 

1090 CLS: PSET (16,8) , 1: PRINTtl , "ESPEJO 

CONCAVO":LINE(20.96)-(235,96),6 

1100 FOR 1=120 TO 123:CIRCLE(I,96),80, 

5,2.3562,3.927:NEXT 

1110 PSET ( 1 28, 94 ) , 1 : PRINTt 1 , " • " : PSET ( 1 

30,98),3:DRAH"ml04,158":PRINTtl,"c.de 
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Programa 




curvatura" 

1 120 PSET ( 101 , 94) , 1 : PRINTtl , 1 • " : PSET ( 1 
«3,98) ,3:DRAW"«83, 168" : PRINT#1 , B f oco p 
rincipal' 

1130 PSET(l71,66),3:DRAW'd30c4d3011u30 
c3u30ml50,20u8':PRINTtl," objeto" 
1140 PSET ( 171 , 66) ,11: DRAWC 1111 22m235 , 
167clil71,126cini22i235 f 25dil71,¿3ci 
lm60,150" 

1150 PSET(171,127),ll:DRAW"i60,42 n 
1 160 PSET ( 120, 88) , 4: DRAW"d8c3d81 Iu8c4u 
Bc3m95,40u8':PRINTtl," imagen" 
1170 GOSUB 20 

1180 I$=INKEY$:IF I$<>" " THEN 1180 
1190 ' 

1200 'ilí! dibujo espejo convexo!»! 
1210 ' 

1220 CLS:L1NE(20,96)-(235,96),6:FOP 1= 
25 TO 28:CIRCLE(I,96), 80,5,5.4978,. 785 
4: NEXT 

1230 PSET (16, 8) , l:PRINTtl, "ESPEJO CONV 
EXO" 

1240 PSET(22,94),l:PRINTtl,*.":LINE<24 
,97)-(42, 166), 3:PRINTtl, "centro de cur 
vatura" 

1250 PSET (47,94) , 1 : PPINT#1 , " ■ u : LINE (49 
, 97)-(67, 157), 3:PRINTtl, "foco principa 
1" 

1260 PSET (150, 66) , 3: DRAH"d30c4d30r lu30 

c3u30cllml06,76c3m24,96" 

1270 PSET ( 150, 65) , 1 : DRAW'cl 1 1 49nc3a20 , 

il5cli«182,17' 

1280 PSET ( 150, 126) ,11: DRAW" 1 49nc4m20, 7 
7cllml4B,155clml50,126cllml06,116c4m24 

,96" 

1290 PSET(70,96),3:DRAIi"ulllldllc4dllr 
lullc3»20,40u8":PRINTtl," iiagen":PSET 
(155,75),l:FRINTIl,"4-objeto H 
1300 GOSUB 20 

1310 I$=INKEY$:IF I$<>" "THEN 1310 

1315 ' 

1320 ttt vocabulario !!! 
1325 ' 

1330 GOSUB 30 

1340 PRINT:PRINT"EJE PRINCIPAL:Es la 1 

inea recta inde-finida (rojo) que une 

los centros de curvatura de sus caris. 
■ 

1350 PRINT: PRINT "CENTRO DE CURVATURA: E 
s el de la esfe-ra al que pertenece el 

casquete y centro de figura al pol 
o del casque- te:cualquier recta que n 
o sea el eje principal y que pase por 
el c.de cur-vatura y por un pun"; 
1360 PRINT'to del espejo se llana eje 

secundario." 



1370 PRINT:PRINT"FOCO PRINCIPAL: Es el 

punto de su eje principal donde se reu 

nen los rayos que llegan al espejo pa 

ralelos a di- cho eje, después de refle 

jarse (esp. cóncavos), o sus prolongac 

iones [(azul y verde)espejos convexos] 
■ 

1380 PRINT:PRINT"PULSA space PARA CONT 
INUAR" 

1390 I$=INKEYf:IF Is<>" " THEN 1390 
1400 GOSUB 30 

1410 PRINT: PRINT" VIRTUAL: Iiagen situad 

a detras del es-pejo":PRINT:PRINT"REAL 

: Imagen situada entre el objeto o déla 

nte de el y el espejo." 

1420 PRINT: PRINT "REFLEXION: Cambio de d 

ireccion que ex-perimenta la luz al in 

cidir o chocar contra una superficie q 

ue no le deja pasar" 

1423 PRINT:PPINT"Pulsa «A» para verlo 

de nuevo. ":PRINT"Pulsa SPACE para volv 

er a empezar." 

1425 I$=INKEY$:IF I$=" " THEN 70 
1427 IF I$="a" OR If="A" THEN 980 ELSE 
1425 

1430 LINE(159,69)-(248,164),4,BF:PSET( 

163, 88) , 4:PRINTtl , " 1-FUER2 AS" : PSET (163 

,U2),4:PRINTtl, n 2-PALANCAS H :PSETíl63, 

136),4:PRINTI1,"3-F0RNULAS" 

1440 I$=INKEY$:IF 1$="" THEN 1440 

1450 IF I$="l" THEN 1490 

1460 IF I$="2" THEN 1730 

1470 IF I$='3" THEN 2030 

1480 IF I$<>"1" OR I$<>"2" THEN 1440 

1490 ' 

1500 '!!!! fuerzas resultantes !!!! 
1510 ' 

1520 SCREEN 0:CLS: COLOR 1,3,3:KEY OFF: 
PRINT: PR INT" !!!!! FUERZAS 
!!!!!":PRINT:PRINT H Dibuja las fuerzas 
con las teclas de control del cursor. 
Pulsa SPACE cada vez que dibujes una 
y RETURN cuando hayas dibujado todas. 

1530 PRINT'En amarillo te saldrá la re 
sultante (todas las fuerzas tiran de 
un mismo punto y has de hacer mas de u 
na). ":PRINT: INPUT "¿Cuantas fuerzas va 
s a hacer";! 

1540 DIH A(Z):DIM B(Z) : AX=12B: AY=96: X= 

AX:Y=AY:R=1:SCREEN 2:C0L0R 4,15,1:CLS 

1550 I$=INKEY*:ST=STICK(0) 

1560 LINE(AX,AY)-(X,Y),15 

1570 IF I$=" " THEN GOSUB 60 

1580 PSET(10,2),15:IF R>Z THEN PRINTtl 

, "Pulsa RETURN" : IF I$=CHR$(13) THEN 16 




50 

1590 IF ST=0 THEN 1600 

1600 IF ST=1 THEN Y=Y-1 

1610 IF ST=3 THEN X=X+1 

1620 IF ST=5 THEN Y=Y+1 

1630 IF ST=7 THEN X=X-1 

1640 LINE (AX,AY)-(X,Y),5:GOT0 1550 

1650 X=128+A(1):Y=96+B(1):PSET(X,Y) 

1660 FDR 1=2 TO Z : XX=A ( I ) : YY=B ( I ) 

1670 LINE -ÍX+XX, Y+YY) ,6:X=XX+X: Y=YY+Y 

: NEXT 

1680 LINE-(128,96),11 

1690 PSET(10,166),15: PRINTtl, 'Pulsa « 

A» para calcular una nueva fue 

rza":PSET(10,183),15:PRINTIl, "Pulsa SP 

ACE para volver al menú" 

1700 I$=INKEY$:IF I$="a" OR I$="A" THE 

N ERASE A, B: GOTO 1520 

1710 IF I$=" n THEN 70 ELSE 1690 

1715 ' 

1720 '!!!!! palancas !!!!! 
1725 ' 

1730 KEY OFF: CLEAR: SCREEN 0: COLOR 15,4 
,7:L0CATE 16, 3: PRINT'HENU" : LOCATE 6,9: 
PRINT'l-Palanca de primer genero":LOCA 
TE 6,12:PRINT"2-Palanca de segundo gen 
ero":L0CATE 6, 15:PRINT"3-Paianca de te 
rcer genero':LOCATE 6, 18:PRINT"4-Formu 
la de la palanca' 

1740 LOCATE 6, 19:PRINT"Fm.Bm = Fr.Br": 
INPUT B: IF G<1 OR 6>4 THEN 1740 
1745 ON G GOTO 1750,1820,1870,1910 
1750 '!!! palanca primer genero !!! 
1755 ' 

1760 GOSUB 40 

1770 PRINTtl , "PALANCA DE PRIMER GENERO 
":CIRCLE(75,96),8,5:PAINT(75,96),5 
1780 PSET(85,96),6:DRAH"fl5ml75,115u5m 
100,106m90,96ml00,86ml75,82u5ml00,81gl 
5" 

1790 FOR 1=10 TO 15 STEP 5: CIRCLE (75, 9 
6), I,6,3.927,0:CIRCLE(75,96), 1,6,0,2.3 
562: NEXT 
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1800 LINE(65,86)-(68,90> ,6:LINE(Ó5, 106 
)-(68, 102) ,6:PAINT(75, 107) , 6: PAINT (86, 
96),6:PAINT(100,82),6 
1810 LINEÍ89, 103)-(94, 130) , 1:PRINT#1, " 
Punto de apoyo " : PSET (66, 96) : DRAM" 1 20u3 
0-:PRINTtl, ■ Resistencia':PSET(160,76) 
:DRAH'il40,56u8':PRINTil, 'Fuerza lotri 
z':G0T0 1990 
1815 ' 

1820 'ttt palanca segundo genero ttt 
1825 ' 

1830 GOSUB 40 

1840 PRINTil, "PALANCA DE SEGUNDO 6ENER 

O , :PSET(85,95) J 8:DRAri90,80iB0,65r50n 

r20dl0i90,80":PAINT(95,75),8 

1850 PSET(85,65),14:DRAH'i100,40í125,6 

5i85,65":PAINT(110,55),14:CIRCLE(85,95 

),10:PAINT(85,95):CIRCLE(B5,95),4,15:P 

AINT(85,95),15 

1860 PSET(85,107),ll:PRINTil,"* Punto 
de apoyo":PSET(110,40) , 1 1 : PRINTil 4 R 
esistencia":PSET(136,68),ll:PRINTil,'* 
Fuerza notr i z " : GOTO 1990 
1865 ' 

1870 '«$ palanca tercer genero ttt 
1875 ' 

1830 GOSUB 40 

1890 PRINTil, "PALANCA DE TERCER GENERO 
' : PSET ( 200, 80) , 4: DRAH"n60, 75d40§200, 1 1 
0uli61, 114ul9rldl8m200, 108u36i200,82n 
u2c8d251 25u25r25" : PAINT ( 190, 1 00) , 8 
1900 LINE (60,95)- (30, 145) ¡PRINTil, "Pun 
to de apoyo":PSET(130,120),10:PRINTil, 
"*Fuerza iotriz':LINE(190,78)-(150,50) 
¡PRINTil," Resistencia":60T0 1990 
1905 ' 

1910 'ttt íorwla de la palanca ttt 
1915 \ 

1920 GOSUB 50 

1930 CLEAR:PRINT: PRINT: INPUT"¿FUERZA N 
OTRIZ (nH)";FH$:INPUT"¿BRAZO MOTOR (i) 
";BM$:INPUT"FUERZA RESISTENTE (n*)';FR 
$:INPUT"BRAZO DE RESISTENCIA (ñ)'-,m 
1940 IF FH$="s" THEN PRINT: PRINT'LA FU 
ERZA MOTRIZ ES DE: * : PRINT; (VAL(FR$)tVA 
L(BR$))/VAL(BH$)"ne*tons" 
1950 IF BHf=V THEN PRINT: PRINT'EL BR 
AZO MOTOR ES DE: ": PRINT; (VAL(FR$) tVAL( 
BR$))/VAL(FM$)"ietros' 
1960 IF FR$="s" THEN PRINT: PRINT"LA FU 
ERZA RESISTENTE ES DE: ": PRINT; (VAL(FNI 
) IVAL (BH$) ) /VAL (BR$) "newtons" 
1970 IF BR$="s" THEN PRINT: PRINT'EL BR 
AZO RESISTENTE ES DE: " : PRINT; (VAL(FMI) 
tVAL(BH$))/VAL(FR$)'ietros' 
1980 PRINT"Pulsa < A » para volver al 
■enu":PRINT:PRINT"Pulsa SPACE para v 
olver a ei-pezar":GOTO 2000 
1990 PSET(5, 155) ¡PRINTil, "Pulsa « A » 
para volver al ienu":PSET(5,165):PRINT 



il, "Pulsa SPACE para volver a e§- p 
ezar" 

2000 I$=INKEY$:IF I$='a" OR I$="A" THE 
N 1730 

2010 IF I$=" " THEN 70 ELSE 2000 
2020 ' 

2030 'ttt foriulas ttt 

2035 ' 

2040 SCREEN 1:CLS: COLOR 1,9, 11: PRINT" 
PROBLEMAS": PRINT" 



2050 PRINT"¿Que foriula escoges para": 
PRINT" resolver tu probleia?" 
2060 PRINT:PRINT'l-VELOCIDAD 
(V=E/T)" 

2070 PRINT"2-ACELERACI0N (A=F/ 
M)":PRINT"3-ACELERACI0N (A=Vf-Vi/T 

2080 PRINT'4-PES0 (P=H. 
6) ":PRINT"5-E. CINETICA (EC=1/2.M.V 
)":PRINT"6-E. POTENCIAL (EP=H.G.H) 
":PRINT"7-TRABAJ0 (W=F.D)' 
2090 PRINT"8-P0TENCIA (P=H. 
T)":INPUT I:IF Kl OR I>8 THEN 2030 
2100 ON I GOTO 2110,2210,2280,2360,243 
0,2500,2580,2650 
2110 ' fon. velocidad 
2120 GOSUB 50 

2130 CLEAR: PRINT: PRINT: INPUT"¿VELOCIDA 
D (ii/seg)';V$:INPUT "¿ESPACIO (i)";E$: 
INPUT"¿TIEHPO (seg)";T$ 
2140 IF Vl*V THEN PRINT"LA VELOCIDAD 

ES:':PRINT;VAL(E$)/VAL(T$)'i/seg" 
2150 IF E$='s" THEN PRINT'EL ESPACIO E 
S DE: "sPRINT; VAL (V$)tVAL(T$) "tetros 
2160 IF T$='s" THEN PRINT'EL TIEMPO ES 
:':PRlNT;VAL(E$)/VAL(V$)"segundos' 
2170 PRINT:PRINT:PRlNT"Pulsa <A> para 
hacer un nue- vo calculo" : PRINT: PRINT" 
Pulsa SPACE para volver a ei-pezar' 
2180 I$=INKEY$:IF I$=""THEN 2180 
2190 IF I$="a"QR I$='A" THEN 2040 ELSE 

2200 

2200 IF 1$=' "THEN 70 ELSE 2180 
2210 ' fora. aceleración I 
2220 GOSUB 50 

2230 CLEAR: PRINT: PRINT: INPUT"¿ACELERAC 

ION !fli/seg)";A$: INPUT"¿FUERZA (nw)";F$ 

:INPUT'¿HASA (kg)";H$ 

2240 IF A$="s" THEN PRINT: PRINT"LA ACE 

LERACION ES DE: *: PRINT; VAL (F$) /VAL(M$) 

;"t/seg" 

2250 IF F$=V THEN PRINT: PRINT"LA FUE 
RZA ES DE:":PRINT;VAL(A$)tVAL(H$);'new 

tons" 

2260 IF Mt="s" THEN PRINT: PRINT'LA HAS 
A ES DE: ": PRINT; VAL (F$) /VAL (A$) "kilogr 
anos" 

2270 GOTO 2170 

2280 ' fora. aceleración II 



2290 GOSUB 50 

2300 CLEAR: PRINT: INPUT"¿ACELERACION (i 
/seg ) " ; A$ : I NPUT " ¿ VELOC I DAD FINAL (i/se 
g)';VF$:INPUT"¿VELOCIDAD INICIAL (i/se 
g)";VI$:INPUT"¿TIEHPO (seg)';T$ 
2310 IF A$=V THEN PRINT: PRINT'LA ACE 
LERACION ES DE: " : PRINT; (VAL(VFt)-VAL(V 
I$))/VAL(T$)">/seg" 

2320 IF VF$=V THEN PRINT: PR INT"LA VE 

LOCIDAD FINAL ES DE:":PRINT;VAL(VI$)*V 

AL(A$)tVAL(T$)"i/seg" 

2330 IF VI$="s" THEN PRINT: PRINT'LA VE 

LOCIDAD INICIAL ES DE: ": PRINT; VAL (VF$> 

-VAL(A$)tVAL(T*)"i/seg" 

2340 IF T$='s" THEN PRINT : PR INT'EL TIE 

MPO ES:":PRINT;(VAL(VF$)-VAL(VI$))/VAL 

(A$)"seg" 

2350 GOTO 2170 

2360 ' fora. peso 

2370 GOSUB 50 

2380 CLEAR:PRINT:PRINT:INPUT'¿PESO (n* 
)";P$:INPUT'¿MASA (kg)';H$: INPUT'¿GRAV 
EDAD (i/seg)";Gt 

2390 IF P$="s' THEN PRINT: PPINT"EL PES 
ES DE:":PRINT;VAL(H$)tVAL(G$)'newton 
s" 

2400 IF H$="s" THEN PRINT: PRINT'LA MAS 
A ES DE:':PRINT;VAL(P$)/VAL(6$)"kilogr 
anos" 

2410 IF 6$="s" THEN PRINT: PRINT"LA GRA 
VEDAD ES DE:":PRINT;VAL(P$i/VAL(H$)'i/ 
seg" 

2420 GOTO 2170 

2430 ' fon. energia cinética 
2440 GOSUB 50 

2450 CLEAR: PRINT: PRINT: INPUT*¿ENERGIA 

CINETICA (J)";EC$:INPUT'¿MASA (kg)'jMt 

:INPUT n ¿VELOCIDAD (i/seg)';V$ 

24Ó0 IF EC$='s' THEN PRINT: PRINT"LA EN 

ERGIA CINETICA ES DE: " : PRINT; (d/2)tVA 

L(H$))tVAL(V$) A 2'julios" 

2470 IF H$= n s' THEN PRINT: PRINT'LA HAS 

A ES DE : " : PR I NT ; VAL ( EC$ ) / í í 1 / 2 ) t V AL ( V$ 

) A 2) "kilogramos" 

2480 IF V$='s" THEN PRINT: PRINT"LA VEL 
OCIDAD ES DE: U :PRINT;SQR(VAL(EC$)/(VAL 
(NS)t(l/2)))'n/seg" 
2490 60T0 2170 

2500 ' fort. energia potencial 
2510 GOSUB 50 

2520 CLEAR:PRINT:INPUT"¿ENERGIA POTENC 
IAL (J)";EP$:INPUT"¿HASA (kg)";H$:INPU 
T"¿GRAVEDAD (i/seg) ";6$: INPUT"¿ALTURA 
(■)";H$ 

2530 IF EP$="s n THEN PRINT: PRINT'LA EN 

ERGIA POTENCIAL ES DE: ': PRINT; VAL (H$) • 

VAL (6$) tVAL(H$) "Julios" 

2540 IF N$="s" THEN PRINT: PRINT'LA HAS 

A ES DE:":PRINT;VAL(EP$)/(VAL(6$)tVAL( 

H$))'kilograios" 
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Programa 



•19 ir niOIIPI, I. I 1' o OH nio»;p». r. I) 




le i» cf"»sci-iD«ípf. r. i . i-e* .<>eT~c" «a 



2550 IF G$="s" THEN PRINT: PRINT"LA GRA 
VEDAD ES DE: " : PRINT; VAL (EP$) / ( VAL t 
VAL(H$) ) "i/seg" 

2560 IF H*="s" THEN PRINT: PRINT"LA ALT 

URA ES DE: " : PRINT; VAL (EP$) / (VAL (H$) IVA 

L(6$))"«tros" 

2570 GOTO 2170 

2580 ' fon. trabajo 

2590 GOSUB 50 

2600 CLEAR: PRINT:PRINT: INPUT" ¿TRABAJO 

(J)";W$:INPUT"¿FUERZA (ni.) ";F$: INPUT*¿ 

DESPLAZAMIENTO (i)";D$ 

2610 IF W»V THEN PRINT: PRINT"EL TRA 

BAJO ES DE: ":PRINT;VAL(F$) tVALíDi) "Jul 

ios" 

2620 IF F$=V THEN PRINT: PRINT'LA FUE 
RZA ES DE: ": PRINT; VAL (Wt) /VAL (D$)"ne*t 
ons" 

2630 IF Dl="s" THEN PRINT: PRINT'EL DES 

PLAZAHIENTO ES DE: ": PRINT; VAL (W$) /VAL ( 

F$) "tetros" 

2640 GOTO 2170 

2650 ' fon. potencia 

2660 GOSUB 50 

2670 CLEAR:PRINT:PRINT:1NPIJT' ¿POTENCIA 
(h)";P$:INPUT"wTRABAJO (J) ";W$: INPUT" 
¿TIEMPO (seg)";T$ 

2680 IF P$="s" THEN PRINT: PRINT"LA POT 
ENCIA ES DE:":PPINT;VAL(M)/VAL<T$) *a 
tíos' 

2690 IF K$=V THEN PRINT: PRINT"EL TRA 
BAJO ES DE: ": PRINT; VAL (P$> tVAL (T$) " Jul 
ios" 

2700 IF T<=V THEN PRINT: PRINT U EL TIE 
UPO ES DE: " : PRINT; VAL (W$> /VAL (Pi) "segu 
ndos" 

2710 GOTO 2170 
2720 ' 

2730 'tlt física nuclear ttt 
2740 ' 

2750 SCREEN 2,0:COLOR 1,15,15:CLS 
2760 ' 

2770 tttt definición sprites Hit 
27B0 ' 

2790 PSET(16,8),15:PRINT#1,"UN MOMENTO 
, POR PAVOR" 

2800 FOR 1=0 TO 1B:A$="" 
2810 RESTORE 3210 

2820 FOR J=l TO 8: READ B*:A$=A$+CHRS(V 

AL("IH"+B$)):NEXT J 

2830 SPRITE*(I)=A$:NEXT I 

2840 CLS:PSET(16,8),15:PRINTI1,"REACCI 

ON EN CADENA" 

2850 PSET(20,20) , 15:PRINT*1, "Rojosneut 

ron":PSET(20,28),l5:PRINTIl,"Verde:pro 
ton" 

2860 LINE(152,26)-(248,180),11,BF [ 




2870 ' 

2880 'tttt colocación sprites ttt» 
2890 ' 

2900 RESTORE 3230 

2910 FOR 1=0 TO 5: READ A, B: READ C:PUT 
SPRITE 1+1, (A,B> ,C, I:PUT SPRITE 1+7, (A 
♦50,B-50),C,I+6:PUT SPRITE 1*13, (A+50, 
B+50>,C,I+12:NEXT I 
2920 ' 

2930 'tttt ioviniento neutrón tttt 
2940 ' 

2950 FOR 1=30 TO 62 STEP 8:READ Af:PSE 
T(160, I) , 11:PRINT#1,A$:NEXT I 
2960 FOR 1=20 TO 85:PUT SPRITE 0,(1,90 
),6,1B:F0R X=0 TO 50:NEXT X:NEXT I 
2970 SOUND 6,15:S0UND 8,15:S0UND 7,55 
2980 RESTORE 3270 

2990 FOR 1=0 TO 5: READ A, B: READ C:PUT 
SPRITE I+1,(A-50,B+50>.C.I:NEXT I 

3000 PSET(75,45),15:PRINTI1,'CAL0R":PS 
ET(75,135),15:PR1NTI1,"CAL0R":F0R 1=0 
TO 500:NEXT 

3010 SOUND 8,7:S0UND 7,63:REST0RE 3290 
3020 FOR 1=70 TO 166 STEP 8: READ A$:PS 
ET(160,I),ll:PRINTfl,A$:NEXT 
3030 X=88:J=95 

3040 FOR 1=85 TO 135:PUT SPRITE 0,(1, X 
),6,18:PUT SPRITE 19, (I,J),6,18:F0R Z= 
TO 50:NEXT Z:X=X-1: J=JH:NEXT I 
3050 SOUND 6,15:S0UND 8, 15: SOUND 7,39 
3060 ' 

3070 'tttt partición 2 atoaos tttt 
3080 RESTORE 3270 

3090 FOR 1=6 TO 17: READ A, B : READ C:PUT 



SPRITE I+1,(A,B),C,I:NEXT I 
3100 FOR 1=1 TO 500:NEXT I 
3110 SOUND 8,7:S0UND 7,63 
3120 PSET(10,174),15:PRINTtl, "Pulsa fft 
» para verlo de nuevo o SPACE para v 
olver a eupezar." 
3130 I$=INKEYf:IF I$=" " THEN 70 
3140 IF K="a" OR I$="A" THEN 2720 ELS 
E 3130 
3150 ' 

3160 'tttt datos f tttt 
3170 ' 

3180 'tttt rellenados tttt 
3190 DATA 60,130,40,70,25,70,40,40,65, 
71, 16,68,80,69.97, 124, 102, 126,80,82, 11 
1,125,71,86,89,88,51,25,56,24,97,109,6 
2,56,114,75,114,84,114,97 
3200 'tttt datos sprites tttt 
3210 DATA 38,7c,fe,fe,fe,7c,38,00 
3220 'tttt 3 atoios tttt 
3230 DATA 85,92,6,87,88,12,90,92,6,83, 
89,6,82,93,12,86,95,12 
3240 'tttt texto tttt 
3250 DATA Un neutrón, choca con-,tra un 
ato-,to y lo di-, vide. 
3260 'tttt 2 atoios div. tttt 
3270 DATA 138,22,6, 1 33, 27, rf^FJ?,^, 6, 
136,59,6,134,54,12,139,55,12,138,122,6 
,133,127,12,139,126,6,136,159,6,134,15 
4,12,139,155,12 
3280 'tttt texto tttt 
3290 DATA Dos nuevos, neutrones, se sepa 
ran,y se diri-,gen hacia, otros ato-,io 
s dividiéndolos, de nuevo, Y el proce- 
do sigue, repitiendo-, se ... 



20 



Test de listados i 



TEST DE LISTADOS. Para usar el Test de Listado que publicamos al final de cada programa debe cargarse el programa correspon- 
diente publicado en nuestro número 7 del mes de noviembre, pág. 28. 
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SUSCRIBETE A VEZ 

Suscribiéndote no sólo tienes la seguridad de tener todos los meses tu 
MSX CLUB DE PROGRAMAS en tu casa sino que recibirás 12 
números pagando sólo 10 



BOLETIN DE SUSCRIPCION MSX CLUB DE PROGRAMAS 



Nombre y apellidos 

Calle N.° 

Ciudad Provincia 

D. Postal Teléfono 



Deseo suscribirme por doce números a la revista MSX CLUB DE PROGRAMAS a partir del número 

que pago adjuntando talón a la orden de: MANHATTAN TRANSFER, S.A. - C/Roca i Batlle, 10-12 - 08023 Barcelona 

Tarifas: España por correo normal Ptas. 2.250,— 

Europa por correo normal Ptas. 2.600 — 

Europa por correo aéreo Ptas. 3.250 — 

América por correo aéreo USA$ 35USA$ 

Importante: Colocar en el sobre: Departamento Suscripciones MSX CLUB. NO SE ADMITE CONTRAREEMBOLSO. 
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Programa i 



Por Angeles Picajo Buleo 



TIERRA 



Gracias a este corto mini-pro- 
grama podréis contemplar en 
vuestras pantallas una perfecta 
animación de la rotación de La 
Tierra. Los cinco continentes 
girando ante tus ojos. 



11 ' Concurso Mi ni croar amas 

20 ' (01.986 t Angeles í TIERRA 

30 ' 

40 CLEAR 3000 

50 COLORIS, 1,1 iSCRCEN 2.2 

60 LINE(0,0)-(255.191),!5,B 

70 ' 

80 ' 

90 ' POSICIONAMIENTO ESTRELLAS 
100 ' 

110 FOR 5=1 TO 150 

120 HZ=RND(G)t255:V7.=RND(G)t!91:C7.=RND 

mm 

130 PSETIHI.VXJ.CX 
140 NEXT E 
150 ' 
160 ' 

170 ' CRIACION SPP.1TES 
190 ' 

190 FOR rt-0 TO II 

200 A«="":FOR H=l TO 32 

210 READ A:A$=A$*CHK*(A) 

220 NEXT H:SPRITE$(M)=A$ 

230 NEXT «:SPRITE$(12)=SPRITE$(11) 

240 ' 

250 ■• 

260 ' FORMACION PLANETAS 
270 1 

280 CIRCLEí 45,90), 9. 9, . . 1, 2 

290 PAINT(45,90).9 

300 CIRCLE(80,40).2.14,,,1.3 

310 PAIKT(B0.40),Í4 

320 CIRCLE (140. 185) .3.2,..! 

330 PAINT(140,185!,2 

340 CIRCLE(255.0).60,11 

350 PAIN'(254,1\11 

360 ' 

370 ' FORMACION "IERRA 
380 ' 

400 CIRCLE(136,361,25,4..,í.2 
410 PAIN'-(133.86),4 
420 • 
430 ' 

440 ! POTACION TIERRA 
450 ' 

460 X=Í00:Y=62:G=74;H=74:R=73:Z=1 

470 H=HHiG=S*l 

430 IFIM54 ÍHEN Z=Z*1 



^^^^ 



490 

500 

510 

520 

530 

540 

55? 

560 

570 

580 

5°0 

600 

610 

620 

630 

640 

650 

660 

661 

662 

¿ T 

680 

*1 

690 



PUTSPRITE P f ( H , Y V . 1,0 
PUTSPPITE l,(H+16,Y).i,l 
PUTSPRITÉ 2, (6+32, Y). 1,2 
PUTSPRITE 3.(G A 48.Y),1.3 
PUTSPRITE 4,(H,Y*Í6),1,4 
PUTSPRITE 5,(H+16,Y+16),1,5 
P L*TSPR1?E 6. (G*32,Y+16) ,1,6 
P4ÍTSPSITE 7.!G*49,Y*16),l,7 
PUTSPRITE B, ÍH. Y+32> . 1 , 8 
PUTSPRITI ".¡H*1Ó.Y+32),1,9 
PUTSPRITE ¡0, (6-32, Y*32) ( 1, 10 
P'JTS C RITE ¡2,(H+32,25).fl,i2 
PUTSPRITÉ 14,^:2, 80), 0,12 
PUTSPRITE 16,(H*32.0:.0,12 
PUTSPRITE 20,(H>32.150),0,12 
PUTSPRITE 22,(H+32,505,0.I2 
PUTSPRITE 25.ÍH+32,75),0,12 
PUTSPRITE 13, (H+32, 1801, 0,12 
AA$ S INKEY$:IF AA$0" n THEN END 
COLOR 15 , 4 , 4 s COLOR 15,1,1 
!F 1=4 OR 1=8 THEN R=R-1 
!F H=15« AND INT1Z/2) =Z/2 THEN R=P 

IF G=12ó THEN G=¿6 
I c 9=154 THEN H=R 



710 IF Z=4 AND G=75 THEN GOTO ¿60 ELSE 
GOTO 470 
720 ' 
'30 ' 

740 ' DATAS MAPA MI 
750 ' 

760 DATA 3,0. 0.0. 0,0. 1.3. 28,62.03.127, 

fitfUl i L I ■¿«VI 1 J 

770 DATA 0,0,0,0.0,64,24.96,44,8,141,2 
2E. 240, 252, 248, 250 

780 DATA 0,0,0.64.96.2,0,0,88,252,252, 
243.252.120, 112.33 

790 DATA 0.0.4,0,0,0,0,16.0,0.0,0,0,0, 

192,192 

800 DATA 0.0,0,0,0,0,0,0,136.67,1,24,1 
26,124.255.207 

810 DATA 0,0,0.0.0,0,0,0,33,7,15,39,55 
.255.255.255 

820 DATA 0,0,0.0,0.128,18,8,130,183,25 

c irr irc ict "jrc "ice 
, i J w • «. u u i t. J J ■ L w J , L J J 

830 DATA 0.0,0,0,0,i,0, 129,1-6, TQ4, 252, 

252.248,252.250.240 

8¿0 DATA 7,7,15.15,31,31,15,7,3,3,1,0, 

0.0,0,0 
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850 DATA 255.255,255,254,252,232,200,1 

29,4,85.194,224,124,30,63,127 

860 DATA0.0. 0,0. 0,0.0,1. 0,0, 0.0. 0.0.0 

.0 

870 DATA 1.0,16,147.183,3,15,14.68,3,1 
5,95,159,31,13,0 

880 DATA 159.79,255,255,255,255,167,47 

.135. 215, 255, 25!. 253, 254, 255, 255 

890 DATA 255,255,255.255.255.255.255,1 

59,!". 243. 225, 128,0, 16. 136, 32 

900 DATA 255,255,255,255,255,255,255,2 

55,198.26,24,9,128,17,9,0 

910 DATA 242,248,241,240,162,38,132,64 

,8,34.131,104,252,254,222,9 

920 DATA 0,0,4,1,0,4,0,0,0,0,0,0,0,0,0 



.0 

930 DATA 127,63,31,31,31,15,30.30,12.3 
0,14.12,4,1,1,0 

940 DATA 22¿. 192. 128, 192, 128,0,0.0,0,0 
,0,64,32,0.0,0 

950 DATA 2,0,?, 0.64, 0.0. 0.0. 0,0, 0,0,0, 
0.0 

960 CATA 126. 126. 126.252, 121, 120, 48,0, 

970 SATA ::. y, 30. 192, 123, 0,0, 0,0, 0,0,0 
.0.0,0,0 

98? DflTfl :-.?,30.: 5 2, 128,0,0,0,0,0,0,0 
990 DATA 16,0,30,192,128,0,0,0.0,0.0,0 
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- 17 
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750 
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900 - 12 
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170 


- 58 


320 


-177 


480 -235 


630 -183 


760 


-169 


910 - 75 


30 - 58 


180 


- 58 


330 


-222 


490 - 80 


640 - 85 


770 
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190 


-ffl 


340 


- 21 


500 - 98 


650 -113 


780 


-121 


"0 -199 


50 -168 
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-161 
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660 -206 


790 
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940 -157 
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210 


-211 
-226 


360 
370 


- 58 


520 -133 


661 -105 


800 

810 


-155 
- 69 


nrp _ g4 
960 -191 
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220 


- 58 


530 -104 


662 -238 
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230 


-166 


380 


- 58 


540 -122 


670 -179 


820 


- 28 


970 - 94 


90 - 55 


240 


- 56 


400 


-190 


550 -107 


680 - 87 


830 


-157 
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m - 59 


250 


- 58 
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-118 


560 -157 


690 -155 


840 


- 62 


m - 94 


U0 - n 


260 


- 58 


420 


- 58 


570 - 96 


700 -20i> 


850 


-189 
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- 58 


580 -114 
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GRAFICOS 



Consigue en tu pantalla 
hasta 72 gráficos diferentes 
gracias a este sencillo mini- 
programa. 



mmttmttmm 
t t 

I G R A F I C S t 



por 

David Pajares 



tmmttttmmtj 

10 CLS:INPUT'Nuiero de gráfico inicial 
(l/72)';A:B=(A-l)/2 

20 IF A<1 OR A>72 THEN 10 

30 COLOR 11, 1, l-.SCREEN 2 



40 0PEN'6RP:'ASI1 

50 IF B=INT(B) THEN C=710 ELSE C=1420 

60 PRESET(5,5):PRINTI1,A 

70 PSET (128,1) 

80 FOR D=0 TO C STEP 10 

90 E=95IC0S(BID) 

100 X=128+EtSIN(D):Y=96-EtC0S(D) 
110 UNE -(X,Y) 
120 NEXT 

130 IF STRI6(0)O-1 THEN 130 
140 B=B*.5:A=A+1 
150 IF B=36 THEN END 
160 CLS:GOTO 50 




La más rápida 
y completa batalla 
espacial 



Nombre y Apellidos: ... 

¡BB^^ J 

Población: "ZZZZ" C.P.' ZZZZ 

Provincia: 

□ Deseo recibir: 



El importe de mi pedido lo hago efec- | 
tivo mediante: 

□ Cheque adjunto a nombre de: 
MSX CLUB DE CASSETTES 
C/Rocay Batlle, 10-12, bajos. 
| 08023 Barcelona | 



iPor Antonio Caro Rodríguez 



CONVOY-901 



Divertido programa en el que 
tienes que mantenerte el máxi- 
mo de tiempo posible sobre una 
carretera llena de obstáculos y 
peligros. Animáos. 



<>0 lll>ll'IIIIM!!!ll!l!lll!IIJI 

30 " CQHBQY-901 

40 " Antonio Cano Rodríguez " 

50 " (1987-Jaén) 

£0 ii.iiH.iMiiiiinim'íiiiii 
■jq 17 »•»»»»» t I11M»II l f » » 1 1 » I I II 

80 C0L0R,?,5:CLS:SCREENl,2iHIDTH32:KEY 
0FF:0EFINTA-Y 
90 "Instruccionii" 
100 PR1NT; PRINTTAB (3) ; "MISION: 
110 PRINTTAB (5) ; "Conducir un cotboy di 
cánones atravesando 
el cupo enemigo." 

JWETIVOs 



.levar provisiones y 
armas a un grupo ais- 
lado de la resisten- c 
ia aliada." 

!40 PRINTTAB(3) ; "PELIGROS: "^ 

ra finados, barreras 
y ciñas en algunos de l 
os traaos y posible- «ente i 

i si les. " 

163 PPINTTAB (3) : "RECORRIDO: n 

171 PRINTTABÍ5) ; "Distancia a recorrer, 

diez Kis.' 
180 PRINTTAB (3) ; "MATERIAL: " 
190 PRINTTAB(S) ; "Unidad de transporte 

901.' 

200 FQRI=0TO5000:NEXT 
210 "Definición de caracteres" 
220 F0RN= 1 600TO 1 655 : READA : VPOKEN v A : NE 
XT:F0RN»1664T01743:READAiVP0KEN, A:NEXT 
230 FORN>184IT01919iREADAiVPOKEN i AiNE 
XT:F0RN-1744T01783:READA:VP0KEN v AiNEXT 
240 F0RN= 1 920TO 1 959 : READA : VPOKEN .A : NE 
XT: F0RN«384TO463 J READA: VPOKEri, A: NEXT 
250 FORNM048TQ1 191 : READA: VPOKEN, A: NE 
XT: FORN» 1264T01279: READA: VPOKEN, A: NEXT 
260 FORN=1360TO1367: READA: VrOKEN. A: NE 
XT;FORN*1440TO1447:READA:VPQKEN,A:NEXT 
270 FORN=1520TO1527:READA:VPOKEN,A:NE 
XT: FORN=320TO335: READA: VPOKEN, A: NEXT: F 
ORN-2032TO20 39 i READA: VPOKEN, A: NEXT 
280 VPOKE8208. 254 : VPOKE8209, 254: VPOKE 
8210,254 

290 VP0KE821 1 , 2S2t VP0KE9223 t 196 




300 VP0KE82 1 3 , i 59 1 VP0KEB2 1 4 • 3 1 s VP0KE8 
215,60 

310 VP0KE8197,199:VPOKEB218,44:VP0KE8 
219,44 

320 VPOKE8220, 134:VP0KE8221, 134: VPOKE 

8222, 134: VP0KE8217,23 

330 "Datas de caracteres" 1 

340 DATA0.0, 0,0. 0,0, 1.2, 0,0,33, 54, 88,1 

16,151,149,64,64,255,64,64,73,85,73,0, 

0,255,0,16,2,213,82,0,1,2,4,8,16,16,15 

,192,32,32,72,20,10,0,255,0,0,0,132,23 

4,164,0,255 

350 DATA255, 255, 255, 255, 240, 240, 240, 24 
0,252,252,252,252,60,60,0,0,255,255,25 
5, 255, 240, 240, 240, 240, 252, 252, 252, 252, 
60,60,60,60,240,240,248,248,252,252,25 
5, 255, 60, 60, 124, 124, 252, 252, 252, 252 
360 DATA255, 255, 255, 255, 240, 240, 240, 25 
5, 252, 252, 252, 252, 60, 60, 56, 240, 240, 240 
,240,248,124,63,31,15,60,60,60,124,252 
,248,240,224 

370 DATA240, 240, 240,240, 255, 255, 255, 25 
5,0,0,60,60,252,252,252,252,240,240,24 
0,240,255,255,255,255,60,60,60,60,252, 
252, 252, 252, 24?, 247, 243, 243, 240, 240, 24 
0,240,188,188,60,60,60,60,60,60,255,24 
0,240,240,255,255,255,255,240,56,60,60 
,252,252,252,252 

380 DATA7, 15,31,62, 124,248,240,240, 192 
,128,0,0,0,0.0,0,255,255,255,240,240,2 
40, 255, 255, 252, 252, 252, 60, 60 , 60, 252, 25 
2,255,255,255,240,240,240,240,240,252, 
252,252,60,60,60,60,60,255,255,255,15, 
15,15,15,15 



390 DATA255,0, 0, 0, 0, 255, 255, 255, 252, 60 

,60,60,60,252,252,252,240,240,240,240, 

240,255,255,255,60,60,60,60,60,252,252 

,252,15,15,15,15,15,15,15,15 

400 DATA254,254, 198, 198, 198, 198,254, 25 

4,14,14,6,6,6,6,6,2,254,126,6,254,254, 

192,252,254,254,126,6,126,126,6,126,25 

4,130,196,198,254,254,6,6,2,254,252,19 

2, 254, 254, 6, 126, 254, 254, 252, 192, 254, 25 

4,198,254,254 

410 DATA254, 254, 198,134,6,6,6,2,254,25 
4, 198, 254, 254, 198, 254, 254, 254, 254, 198, 
254,254,6,126,254 

420 DATA240, 240, 240, 240, 240, 240, 240. 24 
0,120,120,120,120,120,120,120,120,60,6 
0,60,60,60,60,60,60,30,30,30,30,30,30, 
30,30,15,15,15,15,15,15,15,15,0,0,240, 
240,240,240,240,240,0,0,120,120,120,12 
0,120,120,0,0,60,60,60,60,60,60,0,0,30 
,30,30,30,30,30 

430 DATA0.0, 15, 15, 15, 15, 15, 15,240,240, 

240,240,240,240,0,0,120,120,120,120,12 

0,120,0,0,60,60,60,60,60,60,0,0,30,30, 

30,30,30,30,0,0,15,15,15,15,15,15,0,0, 

0,0,0,0,0,0,0,0,0,0,0,0,1,3,7,15,0,0,0 

,0,128,192,224,240,0,0,0,0,128,192,224 

,240,0,0,0,0,1,3,7,15 

440 DATA24,60, 102, 195, 153,60, 102, 195, 1 

89,126,239,251,191,247,126,189,66,231, 

189,153,66,231,189,153 

450 DATA127, 255, 255, 255, 255,255, 56, 16, 

252,230,227,255,255,254,56,16,255,255, 

255,255,255,255,255,255 

460 "Definición de sprites" 



24 



470 F0RI=1T0 10: A*=" : FORJ= 1T032: READA: 
A$=A$+CHR$(A) :NEXT:SPRITE$(I)=A$:NEXT 
480 DATA40, 144,74, 156,200,237, 103,53,1 
89,149,217,240,64,160,224,112,145,214, 
60,142,172,30,60,232,146.63,9,3,38,29, 
15,6 

490 "Datas de sprites" 

500 DATA0,0,0,0,0,0,0,2,2,10,6,15,191, 

95,31,15,0,0,0,0,0,0,0,16,96,192,246,2 

52,216,224,240,248 

510 DATA24, 60, 44, 44, 44, 44, 44, 44, 60, 126 
,231,195,129,0,0,0,0,0,0,0,0,0,0,0,0,0 

,0,0,0,0,0,0 

520 DATA0,0,16,16,16,16,16,16,0,0,24,6 
0,126,60,24,8,0,0,0,0,0,0,0,0,0,0,0,0, 
0,0,0,0 

530 DATA0,64,255, 162, 170, 162, 186. 186,2 

26,127,63,15,0,0,0,0,0,2,255,37,181,18 

1,181,181,55,254,252,240,0,0,0,0 

540 DATA63, 63, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 

0,0,252,252,0,0,0,0,0,0,0,0,0,0,0,0,0, 



550 DATA0, 0,0, 93,85,93,69^69,22,0,0,0, 
0,0,48,48,0,0,0,218,74,74,74,74,200,0, 

0,0,0,0,252,252 

560 DATA48, 48, 63, 63, 0,63, 63, 48, 48, 63, 6 

3,0,0,63.63,0,204,204.252,252,0,252,25 

2,12,12,252,252,0,12,252,252,0 

570 DATA0,0,0,0, 0,0, 0,0,0,0, 0,0,255,25 

5,207,207,0,0,0,0,0,0,0,0,0,0,0,0,255, 

255,3,3 

580 DATA207,207, 192, 192,255, 192, 192,20 
7,207,192,192,255,255,192,192,255,51,5 
1,3,3,255,3,3,243,243,3,3,255,243,3,3, 
255 

590 "Presentación" 
600 FORI=200TO206: B$=B$+CHR$ ( I ) : NEXT: B 
MBI+" ' : FORI=20BTO215: B$=Bi*CHR* ( I ) : N 
EXT:B$=B$+CHR$(210)+CHR$(211):FORI=216 
T0222: Bf *B$*CHR$ ( I ) : NEXT: FORI=200TQ206 
: B$=B$+CHR$ ( I ) : NEXT:F0RI=1T08:B$=B$+" 
■ : NEXT: FORh230TO237: B$=B$+CHPf ( I ) : NEX 
T 



Test de listados 



610 B$=B$+CHR$(232)+CHR$(233):F0RI=238 

T0244 : B$=B$+CHR$ ( I > : NEXT 

620 CLS:LQCATE12,5:PRINTLEFT$(B$,7) 

630 PLAY"Q5T250BAGFEDCO4BA6FEDCO3CBA6F 

EDC02CDA6FEDC01CBA6FEDL1C" 

640 LOCATE12,7:PRINT'Presenta:':FORI=0 

TO1000: NEXT 

650 L0CATE7, 9: PRINTMID* ( B$, 9, 17) : LOCAT 

E7,10:PRINTHID$(B$,41,17) 

660 IF PLAY(0)O0THEN660 

670 "Coiienzo del juego" 

680 Z=0:A=1:B=0:C=0:D=1:E=0:CX=96:HX=9 

6:HY=190:EY=112:VI«9:CLS 

690 PRÍNTB*:L0CATEB,3:PRINTSTRING$<15, 

146) 

700 C$=CHR$(40)+CHR$(41)+" ":LOCATE0,3 
:PRINTC$;:PRINTC$;:PRINTC$;:L0CATE24,3 
:PRINT"Ki:00.00' 

710 A$=STRIN6$ (6, 254) +CHRS ( 130+A) +STRI 

NG$ (8, 146) +CHRÍ { !35*A+B)+STRING$( «?,146 
) +CHR$ ( 1 30+ A) +STR I NE$ ( 6 , 254 ) 

720 LOCATE0,5:FQRI=1TO15:PRINTA$; : NEXT 

730 PUTSPRITE5,(CX,96),8,5:PUTSPRITE6, 

(CX,96),7,6:PUTSPR1TE7,(CX,96),15,7:PU 

TSPRITE9,(CX,96),2,9:PUTSPRITE8,(CX,11 

2),15,8:PUTSPRITE10,(CX,112).2,10 

740 SOUND0, 150: S0UND1 , 1 : S0UND2, 1 50: SOU 

ND3,2:SQUND4,0:SOUND5,5:SOUND6,15:SOUN 

D7, 56: S0UND8, 6: S0UND9, 6: SOUND10, 6 

750 A$=STRING$ (6+C+E, 254) +CHR$ I 130+A) ♦ 

STRINE$(8-E,146)*CHR$(135+A+B)*STRIN6! 

(9-E, 146) +CHR$ ! 130*A) +STRING* <6-C*E, 25 

4) 

760 LOCATE0 , 5 : PR I NTCHRi ( 27 ) + " L " : LOCATE 

0, 5: PRINTA$; : IFB=0THENB=5ELSEB S 

770 H=INT (RND ( 1 ) 132) : IFVPEEK (6304+H) ) 1 

69THENLOCATEH,5:PRINTCHR$(1<?0); 

780 ONSTICK (0) GOSUB960, 960, 930, °60. 960 

,960,940 

790 IFVPEEK(6528+INT(CX/3) ) H690RVPEEK 
(6624+INT(CX/B))>1690RVPEEK(6528+INT(C 
X/8)+l)>1690RVPEEK(6624+INT(CX'8)+l)>l 
69THEN1220 



800 Z=Z+.01:LOCATE13,0:LOCATE27,3:PRIN 
TUSING l, tl.M";Z:ONINT(Z)GOSUB980,98«,l 
010,1010, 1040, 1040, 1080, 1080. 1080, 1320 
810 IFZ=10RZ=20RZ=30RZ=40RZ=50RZ=5THEN 
E=E*1 

820 IFINT(RND(-TIHE)t2)=0THEN840 
830 GOTO750 

840 IFINT(RND(1)I25)=0THEN D=-D 

850 IF C>5THEND=-D 

860 IF C<-5THEND=-D 

870 IFD=ABS(D)THEN880ELSE900 

880 A=A*1 : IFA>5THENA= 1 : C=C* 1 : A$=STP ING 

$ «5+C+E, 254) +CHR$ ! 159 WCHR$ ( 130+A) +STR 

ING$ (8-E, 146) +CHR$ ( 135+A+B) +STRINGÍ <8- 

E,146)*CHRIÍ147)+CHRK130*A)*5TRINGK6 

-C+E,254):GOTO760 

890 6OTO750 

900 A=A- 1 : I FA< 1 THENA=5 : C=C- 1 : A$=STR ING 
$ Í6+C+E, 254 ) +CHR$ í i 30+A) +CHR« í 148) +STR 
IN6I (7-E, 146) +CHR$ ( 135+A+B) +STRIN6Í (*?- 
E, 146) +CHR$ í 130+A) +CHR$ ( 1 58 ) +STR I NG$ í 5 
-C+E,254):6OTO760 
910 GOTO750 

920 "Noviaiento del camón" 
930 CX=CX+8:GOTQ950 
940 CX=CX-8 

950 PUTSPRITE5,(CX,96),B,5:PUTSPFI T E6, 
(CX,96),7,6:PUTSPRITE7,(CX,96).15,7:PU 
TSFRITE9,(CX,96),2,9:PUTSPRITE8,fCX,i: 
2),15,8:PUTSPRITE10,(CX,112),2,10 
960 RETURN 

970 "Colocación de las ninas" 
980 H1=INT(RND(1)I32):IFVPEEX(6304*HI) 
<169THENLOCATEH1.5:PPINTCHR$(180); 
990 RETURN 

1000 "Colocación de las barreras" 
1010 H2=INT(RND(1)I32):1FVPEEK(6304+H2 
)<169ANDVPEEK(6307+H2)<:i6?ANDINT'RND(l 
)I2)=0THENLOCATEH2,5:PRINTSTRIN6$I3,17 
8); 

1020 RETURN 

1030 "Colocación de barreras y aunas' 

(Sigue) 



10 


- 58 


130 


- 64 


250 


-140 


370 


-221 


490 


- 58 


610 


-247 


730 


- 21 


850 


- 21 


970 - 58 


1090 


-210 


1210 


- 58 


1330 - 94 


20 


- 58 


140 


-199 


260 


-208 


380 


-115 


500 


-184 


620 


- 84 


740 


-196 


860 


- 9 


980 -216 


1100 


-213 


1220 


- 82 


1340 -221 


30 


- 58 


150 


- 73 


270 


-201 


390 


- 31 


510 


-116 


630 


- 14 


750 


-173 


870 


-163 


990 -142 


1110 


- 71 


1230 


-237 


1350 -242 


40 


- 58 


160 


- 11 


280 


-248 


400 


-102 


520 


-107 


640 


-100 


760 


-156 


880 


-250 


1000 - 58 


1120 


-142 


1240 


-213 


1360 -153 


50 


- 58 


170 


-176 


290 


-102 


410 


- 26 


530 


-157 


650 


-239 


770 


- 77 


890 


-135 


1010 -226 


1130 


- 58 


1250 


- 18 


1370 -236 


60 


- 58 


180 


-177 


300 


- 7 


420 


-164 


540 


- 28 


660 


- 27 


780 


-178 


900 


-254 


1020 -142 


1140 


- 70 


1260 


-131 




70 


- 58 


190 


- 9B 


310 


- 36 


430 


-120 


550 


- 73 


670 


- 58 


790 


-170 


910 


-135 


1030 - 58 


1150 


-144 


1270 


- 72 




80 


-184 


200 


- 24 


320 


- 59 


440 


- 5 


560 


- 61 


680 


-218 


800 


- 


920 


- 58 


1040 - 64 


1160 


-213 


1280 


-131 




90 


- 58 


210 


- 58 


330 


- 58 


450 


- 62 


570 


- 96 


690 


- 76 


810 


-228 


930 


-185 


1050 -138 


1170 


-251 


1290 


- 21 




100 


-252 


220 


-236 


340 


-232 


460 


- 58 


580 


-143 


700 


-201 


820 


- 46 


940 


- 48 


1060 -142 


1180 


- 82 


1300 


-115 




110 


-112 


230 


- 94 


350 


-228 


470 


- 25 


590 


- 58 


710 


-106 


830 


-135 


950 


- 21 


1070 - 58 


1190 


- 54 


1310 


- 58 




120 


-196 


240 - 84 


360 


- 47 


480 -173 


600 


- 66 


720 - 80 


840 


-168 


960 -142 


1080 -121 


1200 


-142 


1320 


- 21 
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1040 IFT=1THENT=2ELSET=1 
1050 ONTGOSUB980. 1010 

1060 RETURN 

1070 "Lanzamiento del lisil" 

1060 HY=HY-1:IFHY<112THEN1140 

1090 !FCX>HXTHEN(1X S HXM 

1100 IFCX<MXTHEN«X=MX-4 

1110 PUTSPR I TE3 , ( H X , HY ) , 4 , 3 : PUTSPR I TE 4 

,(MX,HY),n r 4 

1120 RETURN 

1130 "Explosión del lisil" 

1141 PUTSPRITE3, («X-4, EY> ,9, 1 : PUTSPRIT 

E4, (MX-4,EY) ,11,2 

1150 !FEY=112THENGOSUB1180:IFflX<CM6A 
NDIK>CX-8THEN122« 

1160 EY=EY+8: IFEY> 190THENHY= 1 90: EY=H 2 
1170 6OTO1120 

1 180 SOUND0, 0: S0UND1 . 5: 50UND2, 0: S0UND3 

. 13: S0UND4, 255: S0UND5, 1 5: S0UND6, 30: SOU 

ND7 ) 0:SÜUND8,16:SOUND9,Í6:SOUND10,16:S 

3UND11,0:SOUND12,5:SOUND13,0:FORI=1TO3 

0:NEn:SOUND!2,56:SOUND13,0 

1190 FORI=0TO200:NEn:SOUND0,150:SOUND 

1,1: S0UND2, 150: S0ÜND3, 2: S0UND4. 0: SQUND 

5,5.t0UNDé.t§lÍ0gND?,5élS0UN0i f Éi90y« 

9,6:SOUND10,6 

1200 RETURN 

1210 "Caaión destruido" 

1220 SOUND0, 0: S0UND1 , 5: SQUND2, 0: S0UND3 

, 13: S0UND4, 255: S0UND5, 15: S0UND6, 30: SOU 

ND7,0:SOUND8,16:SOUND9,16:SOUND10,16:S 

OUND11,0:SOUND12,5:SOUND13.0:FOPI=1TO3 

0:NEXT:SOUND12.56:SDUND13,0 

1230 C0»8:C1=11:FORN=1TO25:PUTSPRITE1, 

!CX,?6í,M,l¡PUTSPRITE2,(CX,96),Cl,2 

1240 FORJ=2TO100:NEXT 

1250 IFN/2=INT(N/2)THENC0=9:C1=11ELSEC 

0=B:C1=10 

1260 NEXT 

1270 PUT3PRITE1, ( , 0> , , 15 : PUTSPRITE2, í 

0,í),,15:CX*(15+C)tB 

1280 VI=VI -3: LOCATEVI , 3: PRINT5PACE* (3) 

:IFVI=0THEN1350 

1290 FQRI=0TO20:LOCATE0,5:PRINTCHRÍ(27 
«♦"L":LOCATE0 t 5:PRINTA$::NEXT 

1300 3OTO7T0 

1310 "Misión cumplida" 

1320 FORI*0TO20:LOCATE0,5:PPINTCHR$¡27 

) ♦ *L " : LOCATE0 , 5 : PR I NTA$ ; : NE XT 

1330 L0CATEB.3:PRINT n H:SI0N CUMPLIDA" 

1340 PLAY - H25505T255L32GGABSAFBBGGAB6A 

FGGGGEDGAAAFEDCBAEF3R8GFED05CG4BA" 

1350 L0CATE7,4:PRINT'0TRA PARTIDA <S\N 

>' 

1360 A$=INPUT$Í1):IFA*="S"0RAS=VTHEN 
680ELSEIFA$="N"QRA$=VTHENSCREEN0:KEY 
ON: WIDTH3B: COLOR 15,4,4¡END 
1370 GOTO1360 



Programa «Por David Amado Olba, 



REPARTO 
MUSICAL 



Cinco son las piezas que com- 
ponen este reparto musical, es- 
cogidas entre el amplio reperto- 
rio de Bach y Schuman. Solista 
de este concierto, tu MSX. Un 
programa dedicado a los aman- 
tes de la música clásica. 




1 REritmmmtmtmtmmmmt 

2 PEM* REPARTO MUSICAL I 

3 REfl* REALIZADO t 

4 REMt POP t 

5 REM* David Aiadó Olba t 

6 REMI PARA i 

7 REM» USX CLUB * 

8 FEntttttttmmmumtttmmtt 

94 REfl N21 MUSETTE 

95 CLS 

96 C0L0R4.1 

97 GOSUB1000 
93 F0RMT02 

99 PLAY ;, H6000SH" 

100 A$="T90O6L4AL166F+EDL4AL16GF+EDO5F 
+GL8AGF+EAF+D06L4AL16GF+EDL4AL16GF+ED0 
5F+GL8AGF+EAL4D" 

120 B$="T90O3L8DO4DO3DO4DO3DO4DO3DO4DL 

16F+GL8AGF+EAF*D03D04D03D04D03D04D03DO 

4ÜL16F+6L3AGF+EAL4D" 

130 PLAYAS, B$ 

140 NEXTI 

145 F0RA=1T02 

146 PLAY-M500S1" 

150 A$="T90O6L16ODL8EL16C*DL8EAEL4EL8 



AEAEL16DC+05BAL8BE06ED+05E06DDC+AG*ED+ 
05E06DDC+AG*" 

155 B$= n T90L8O3AO4AO3AO4AO3AO4AO3AO4AO 
3AC4A03A04AC3AC4A03E04E03E04E03E04E03E 
04E03E04E03E04E03E04E03E04EC3E04E B 
160 PLAYAS, Bf 

170 CS="T90O6L16ED+C+D+ED+C+D*L3EO5G+A 

06DL16C+DL8E05ADL16ODL8E04L4A" 

180 ES="T90O3L8EQ4EO3EO4EO3EO4EC+DL4EO 

3L8A04DL16ODL8EQ3L4A' 

190 PLAYCS,ES 

191 PLAY"M6000Sir 

200 F$= H T90L4O6AL16GF+EDL4O6AL16GF+EDO 

5L16F+GL8AGF+EAF+D06L4AL16GF+EDL406AL1 

6GF+ED05L16F+GL8AGF+EAL4D" 

210 GS="T90LBO3DO4DO3CO4DO3DO4DO3DO4DL 

16F+GL8AGF+EAF+D03D04D03D04D03D04D03DC 

4DL16F+GL8AGF+EAL4D" 

220 PLAYFS,GS 

230 NEXTA 

240 GOTO1130 

241 REfl N22 MINUE 

242 PLAY-M500S10" 

243 F0RB=1T02 
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250 J$='T90O5L8GBO6DGQ5AQ6F+L4GO5GGL8G 
B06D605A06F+L4G05G606EEL8EGL4DDL8DGL4C 
L8DC05B06C05L2A.L8GB06DG05A06F+L4G05GG 
LBGB06DG05A06F+L4605G606EL8DC05BA06L4D 
L8C05BAGAB06CL405DF+L2G. 1 

260 K*="T90O4L2GL4DO3L8GBO4D6DO3BL26O4 
L4DL803GB04DGD03BL404CGC03B04G03BA04F+ 
GL8DEF+DEF+L2GL4D03L8GB04D6D03BL2604L4 
D03L8GB04DGD03B04L4CEG03B04DGCCDGÜ03G" 

261 PLAY J$,K$ 
270 NEXTB 

280 F0RC=1T02 

290 L$="T90L8G5GABA6F+L4GEEO6L8GF+EGF+ 
EL4F+05BB06L8GF+EGF+EL4F+05BQ6ELBF+GA0 
5L4B06D+EL8D+EL4F+" 

300 M$="T90L4O4ED+O3BQ4EO3BDO4EGBO3LBB 
Q4D+F+BF+DL4EGB03B04AGAB03BQ4L2E." 
310 PLAY U,M 

320 N$="T90L4O6GL8GF+EDL4EL8EDCO5BO6L4 
CL8C05BAGL4F+LBEF+L4DADDBDD06CL8DC05B0 
6CL205A.L8GBQ6DG05AQ6F+L4G056GL8GB06DG 
05A06F+L4B036G06EL8DC05BA06L4DL8C05BAG 
AB06C05L4DF+L2G. " 

330 O$="T90L4Q3BO4DGCDEO3ABO4CDO3ACO4L 

8F+DF+ÜF+D6ÜGDGDL4F+D6L3DEF+DEF+L2GL4C 

L8GB04DGD03BL2GQ4L4D03LBGB04DGD03B04L4 

CEG03B04DGL2CL4DGD03G" 

340 PLAYN$,0$ 

350 NEaTC 

351 6OTOU30 

360 REM N25 POBRE HUERFANO 
400 PLAY"I1900S14" 

410 P*="T60L16O5ABO6L8C35BAL16ABO6L8Cr 
EL16E.L32FL4GF05B.L16ABL806C05BAL16ABL 
806CDEL16E.L32FL45F05L8B.L1606C05B". 

411 QI="T60L8R8O5EDCR8EGGR8L4O6CL8O5B. 
L16AL4G+.R8L805EDCR8EGGR8L406CL805B.LÍ 
6AL8E.L16DL8C" 

412 R*="T60L8O4AEAR3AGO5CR8L4CL8D.R16L 
4E.04R8L8AEAR8AG05CR8L4CL8D.R16R9.R160 
4L8A" 

420 PLAYP$,Q$,R$ 

430 S$='T60L16O56+AL8BO6CDFECO5BL16G+A 
L8B06CDFL405B.L16AB06LBC05BAL16AB06L8C 
DEL16EFL4GF05B.L16AB06L8C05BAL16AB06LB 
CDEL16EF" 

440 T$="T60L16O4EF+L3G+ABO5EECO4BL16EF 
+LBG+AB05L8EL4EL16EDC04BL8A05DCR8E6GR8 
L406CO5L8B. L16AL4G*. R805L8EDCP8EGGR8 B 

441 U$="T60R16R16RBR8R8O5LBDCQ4AG+R16R 
16R8R8R8L 1605CDP4R1 6R 1 6P l 6R16R8L804EAP 
8AG05CR8L4Q5CDE.R8Q4LBAEAR8AG05CR8" 
450 PLAY St,TMí 

460 V$="T60L4O6GFLBO5B. 06L16C05LBAL16G 
+AL8B06CDFEC05BL16G+AL8BO6CDF05L4B.L16 
AB06L8C05BAL16ABL806CDEL16EFL4GF05B.L1 
6AB06L8C05BAL16AB06L8CDEL16EFL4GFL805B 
.06L16C05L8A' 

470 W$="T60L4Q6CQ5L8B.L16AL8E.L16DL8CL 
1604EF+L8G+AB05EEC04BL16EF+L8G+ABL1605 



CDL4EL16EDC04BL8A05ECR8EG6R8L406C05L8B 
. L16AL46+. R8L805EDCR8E66R8L406C05L8B. L 
16AL8E.L16DLBC" 

471 XS= , T60L4O4CDR4L8O4AR16R16R8*8P8O5 
L8DC04A6+R16R16R8R8R805L16CDR4R16R16P1 
6R16R8L804EAR8AG05CR8L4CDE.R804LBAEAR8 
A605CR8L405CDR404LBA" 

480 PLAYV$,W,X$ 

481 GOTO1130 

482 REM N24 SICILIANA 

490 FLAY U M500S10" 

491 F0RX=1T02 

500 Y$= n T90O6LBEO5L45+L8G+G + ABL4AL3AL4 
A06L8EL4056+L8G+G+ABL4A.ALBGL4F+L8F+F+ 
A+06C+Q5L4BL9BL4BLBAGF*EL4BL804BLAQ5E. 
E" 

510 Z*="T90O5L4DL8DL4D.L4EL9EL4E.L4DL8 
ÜL4D.L4E.E05L8DL4C+L8OL4O.D+L8D+L4D* 
04L8B05L4E04L8GL4B03L8B04L4E.E" 

511 AAM-T90O4L4BL8BL4B.O5L4CLBCL8C.O4 
L4BLBBL4B.05C. CL80ÍBL4A+L8A+L4A+. BL8BL 
JPP8F4P8R4R8R4R4* 

520 PLAYY$,Z*,AA* 
530 NEXTX 
535 F0RS=1T02 

540 AB$= B T<?0O6LBGO5L4A*L8AABO6OC5L4BL 
8BL4B06LBGL4C5A*L8AA&06C*05L4B.BL6AL46 
L8GGF+EL406CL8CL4CL8C05BA606L4D05L8DL4 
G.G" 

550 AC*="T?0P8L4O5ELBEL4E.L4F*L8F*L4F* 
. L4EL8EL4E. F+. FL8DL4EL8EER8RB05L4CLBCL 
4CL9C04L8BAGL405DL804DL4G.G" 

551 ADi="T90R8L4ü5C*L8OL¿!>.L4D*LBD+L 
4D*.L4C+LBC*L4C*.L40*.D+LBD*R4FBRBP8RB 
L404ALBAL4AR8LSBAGR4R8P4R8P4" 

560 PLAY AB$,AC$,AD$ 
570 NEXTS 

580 AE$='T90O5L4GL8G+L4G+O6L8EO5L4G*LB 
G+G+ABL4AL8AL4A06L8EL405E+L8G*E+ABL4A. 
AL8GL4r+L8F+F+A+06C + L405BL8BL4BLBAGF*E 
L4BLB04BL405E.ER8" 

590 AIi="T90O4L4GL8BL4BR8Q5L4DL8DL4D.E 
LBEL4E.L4DL8DL4D.E.EL805DL4í>L8C*L4O. 
D+L8D+L4Ü+L804BL405E04LBGL4BL803BL404E 
.ER8" 

591 AO$="T90O4R4L8EL4ER8O4L4BLBBL4B.O5 
CL8CL4C.04BL8BL4B.05L4C.CLB04BL4A+L8A+ 
L4A+. BL8BL4B. RBR4R8R4R8P4P8F4" 

600 PLAVAEI, Alt, AO$ 

610 AU$='T90L16O5AO6CECFDECFDECDO5BL9A 
L16A06CECFÜECFDECD05BL8AL16AB06C05A06E 
C05BG06EC05BGF+GL8EL16AB06C05A06EC05BG 
06EC05B6F+GL8EL16A06CECFDECFÜECD05BL8A 
L16A0jCECFÜECFDECD05BLBA h 

620 BAt="T90O5L4EL8FEFEDCL4EL8FEFEDCL4 
EL8E04B05E04BBEL405EL8E04B05E04BBEL405 
EL8FEFEDCL4EL8FEFEDC" 

621 BB$="T90L4O4ALBAADAAEAL4AL8AAAAEAL 
4AL8F*GF+GRBR8L4AL8F*GLBF*6RBR8L4AL8AA 
AAEAL4AL8AAL8AAEA" 



630 PLAYAU$,BA$,BB$ 

640 BC$="T90O5L4EO6L8EL4O5G*L8G+G*ABL4 
AL8AL4A06L8EL405G+L8G+G+ABL4A.AL8GL4F+ 
LBF+F+A+06O05L4BL8BL4BL8AGF+EL4B04L8B 
05L4E.ER8" 

690 BE$="T90O4L4BP8O5L4DL8DL4D.EL8EL4E 
. L4DL8DL4D. E. EL805DL4C+L8C+L4C+. D+L8D+ 
L4D+L804BL405E04L8GL4BL803BL404E.ERB" 

691 BD$ S "T90L4O4AL8AADAAEAL4AL8AAAAEAL 
4AL8F+GF- t 6R8RBL4AL8F+GL8F*GR9F,6L4ALSAA 
AAEAL4AL8AAL8AAEA" 

700 PLAYBC$,BE$,BDI 

701 G0T01131 

702 REK N23 POLONESA 

703 PLAY"«500S10 n 

704 F0RY=1T02 
710 FOR X=1T02 

720 CA$="T90O6L8FL16F6L8AL16GAB-AGFL9G 
L16GAGFEDL8EC05L4A06DCL805B-C6L:6CDC05 
B-AGL8AFAL 1 6B-06CL8DL 1 6DEL4CQ5L3BL 1 606 
CDC05B-AGL8AF06FL1 6FEL8DC05B-AL ! 6EB-A6 
L2F" 

730 CBt="T ! í0V7O4L8AB-L4O5CCCO4BO5CQ4Ll 
6DE-DC03L8B-04B-A03AG04FECL16FCC3B-04C 
L4FFFFGL16FEF5L9AFB-05CDC4B-Q5C04CFL16 
C03AL4F" 

731 CD$="T90V7O4L4rFFEDCF:16Ri6P : S 
R8F.9F8ft8R8P3F-4C3PB-A04DEF4f:4F::P4F-4P4" 
740 PLAYCA*,CB$,CD$ 

750 NEXT l 

751 F0RE=1702 

770 CE$="T°0O6L8AL!6A6LBAL16EO5AE : -fiGFL 
8GL16GFL8GL16FGAGFELBAL16AGL8FEDCL1605 
B-06CD05B-06L4C05B-L3A06CC05L16E-06CL3 
D05LBBB-B-L 1 6AE-D6L4CLBFL 1 6FEL8DCC5B-A 
L16GB-AGL2F" 

771 CF$="T90Q5V7L4CCC:CCC:O4ALBGO3GO4C 
03CDEFC4L1ÓFGL8AFB-03B-04GDC03B-AC-AFB- 
04CD03B-04C03CFL16A0aCL4F" 

772 CG$= B T90V10O4L4PFFEGEFAFR4RBF9^^ 
R4R2F:P4R4P2R4R4P4" 

780 FLAYCEÍ ,CF$,CGt 
790 NEXTE 

800 CH$= n T90O6LBFL16FGLSAL16GAB-AGFL8G 
L16GAGFEDL8EC05L4A06DC05L8B-06L16CDC05 
B-AGLS?;rAL16B-06CL80L16DEL4C05L8B-06Ll 
6CDC05B-AGL8AF06FL16FELBDCC5B-ALÍ6GB-A 
GL4FL4F" 

810 CI$='T90V7O4LBFAO5CG4AFO5CO4EO5CD4 
BBL805L16C04B-AGFEDC03B-04FEF03A04FEFL 
B03G04FCE03LI6F04CBEL8FL16GALBB-FAFGFE 
CL16FGAB-L8AF03B-04CD03B-04C03CFL16A04 
CL4F' 

820 PLAYCHÍ,CI$ 
830 NEXT Y 
840 GOTO1130 

1000 PRINT"*»«l*«lll»*»««'»»»0«l*0»l««» l ílt<I! l 5II 



1010 PRINT B »*«»**e«9«9«»«PEPAFT0*»BM 
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1040 PRINT'i 

) 

1050 PRINT-» 

1060 PRINT-» 

1070 PRINT"» 

1080 PRINT"§ 

H) 

1090 PRlNT"» 

1100 PRINT't 
NN) ■' 

1110 PRINPt 



lili PRlNT'i 
1020 PRINT"t 



1.MUSETTEÍJ.S.BACH 



2.MINUEÍJ.S.BACH) 



3.P0L0NESAÍJ.S.BAC 



4.SICILIANAÍSCHUMA 



1120 PRINT't 5. POBRE HUERFANO (S 
HUtlANN) •" 

1121 PRINT"t 

1 122 PRINT"itM«MffM«i«i«t«tttii«ii«f 

1130 LOCATE0,20:PRINT'PARA FINALIZAR P 
ULSA (0)' 

1131 LOCATE0,17:INPUT'PULSA LA QUE OES 
EES OIR';A 

1160 IFAO1THEN11B0 
1170 IFA S ITHEN9S 
1180 IFAO2THEN1200 
1190 IFA=2THEN241 
1200 1FAO5THEN1220 
1210 IFA=5THEN400 
1220 IFAO4THEN1240 
1230 IFA*4THEN490 
1240 IFAO3THEN1260 
1250 IFA=3THEN702 
1260 IFAO0THEN1131 
1270 IFA=0THENEND 



Test de listados 



1 - 

2 - 

3 - 

4 - 

5 - 9 
ó - 

7 - f 

8 - 
94 - 



98 -184 



99 


-205 


191 


-205 


280 


-178 


412 


-223 


491 


-199 


590 


-251 


703 


-155 


790 


-200 


1060 


-227 


1180 


- 89 


100 


- 42 


200 


-159 


290 


- 33 


420 


-120 


500 


- 26 


591 


-233 


704 


-200 


800 


-153 


1070 


-173 


1190 


-167 


120 


-151 


210 


-156 


300 


-119 


430 


- 75 


510 


-229 


600 


- 37 


710 


-199 


810 


- 75 


1080 


-199 


1200 


-112 


130 


-184 


220 


-194 


310 


-206 


440 


-232 


511 


-134 


610 


-250 


720 


-157 


820 


- 76 


1090 


-173 


1210 


- 74 


140 


-204 


230 


-196 


320 


-146 


441 


-166 


520 


-186 


620 


-139 


730 


- 18 


830 


-220 


1100 


- 74 


1220 


-131 


145 


-176 


240 


- 5 


330 


- 43 


450 


-129 


530 


-219 


621 


- 53 


731 


-159 


840 


- 5 


1110 


-173 


1230 


-163 


146 


-107 


241 


- 


340 


-210 


460 


-225 


535 


-194 


630 


- 34 


740 


- 21 


1000 


- 5 


1120 


- 75 


1240 


-150 


150 


- 99 


242 


-155 


350 


-198 


470 


- 47 


540 


- 29 


640 


- 25 


750 


-219 


1010 


-174 


1121 


-173 


1250 


-119 


155 


-146 


243 


-177 


351 


- 5 


471 


-214 


550 


-121 


690 


-107 


751 


-180 


1011 


- 5 


1122 


- 5 


1260 


- 18 


160 


-184 


250 


-218 


360 


- 


480 


-138 


551 


- 19 


691 


- 55 


770 


- 87 


1020 


-173 


1130 


- 17 


1270 


- 39 


170 


- 35 


260 


-120 


400 


-163 


481 


- 5 


560 


- 17 


700 


- 23 


771 


- 46 


1030 


-173 


1131 


- 84 






180 


-128 


261 


-202 


410 


- 14 


482 


- 


570 


-214 


701 


- 6 


772 


- 38 


1040 


-139 


1160 


- 68 


TOTAL: 


190 


-189 


270 


-197 


411 


- 41 


490 


-155 


580 


- 4 
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¡NOS APLICAMOS A SER UTILES! 

A TRAVES DE MSX CLUB DE MM1INC PUEDES ADQUIRIR 



BASIC TUTOR IDEALOCIC 



******* 



Deja el manual de lado. Inserta este breviario de 
BASIC en cartucho y olvídate. No ocupa memoria. 

PVP 3.500 pts 




No te quedes 
al margen 
y disfruta 
de las tarjetas 
inteligentes 
Lo último 
en soft. 



ENVIA HOY MISMO ESTE CUPON 



f Nombre y apellidos 

I Dirección 

I Población CP Prov. . 

| □ Tutor Basic Ptas. 3.500- □ Adaptador Bee Card Ptas. 2.850- 

I □ SweetAcorn Ptas. 5.200- □ Backgammon Ptas. 5.200- 

I □ Barn Stormer Ptas. 5.200- □ Chock'n Pop Ptas. 5.200- 







Tel. 



□ Adaptador Softcard Ptas. 2.850 - 

□ Shark Hunter Ptas. 5.200- 



□ Le Mans 2 Ptas. 5.200- 

| Gastos de envío por cada producto 100 - pts. Remito talón bancario de pts. a la orden de Manhattan 

^^ransfer, S.A. Enviar a MSX CLUB de MAILING, Roca i Batlle 10-12 bajos - 08023 Barcelona. 



J 



MSX por dentro 



Por Ronald Van Gink 



LA VRAM 
EN SCREEN 1 



El modo de pantalla SCREEN 1 permi- 
te el manejo de SPRITES y la utilización 
de gráficos (mediante la redefinición de 
caracteres). En este artículo desvelamos 
todos los secretos de este modo de panta- 
lla, usos, cualidades y defectos de la 
VRAM en SCREEN 1. Ademásincluimos 
todas las tablas de este modo depantalla. 



TABLA 1: Direcciones para redefinir un carácter 



Direc. Carac. 



Direc. Carac. 



Direc. Carac. 



0-7=CHR$(0) 

24-31=CHR$(3) 

48-55=CHR$(6) 

72-79=CHR$(9) 

96-103=CHR$(12) 

120-127=CHR$(15) 

144-151=CHR$(18) 

168-175=CHR$(21) 

192-199=CHR$(24) 

2 16-223 =CHR$(27) 

240-247=CHR$(30) 

264-271=CHR$(33) 

288-295 =CHR$(36) 

312-319=CHR$(39) 

336-343 =CHR$(42) 

360-367=CHR$(45) 

384-391 =CHR$(48) 

408-415=CHR$(51) 

432-439=CHR$(54) 

456-463 =CHR$(57) 

480-487=CHR$(60) 

504-5 11=CHR$(63) 

528-535=CHR$(66) 

552-559=CHR$(69) 

576-583 =CHR$(72) 

600-607=CHR$(75) 

624-63 1=CHR$(78) 

648-655=CHR$(81) 

672-679=CHR$(84) 

696-703 =CHR$(87) 

720-727=CHR$(90) 

744-751=CHR$(93) 

768-775=CHR$(96) 

792-799=CHR$(99) 

816-823=CHR$(102) 

840-847=CHR$(105) 

864-871=CHR$(108) 

888-895=CHR$(lll) 

912-919=CHR$(114) 

936-943=CHR$(117) 

960-967=CHR$(120) 

984-991=CHR$(123) 

1008-1015=CHR$(126) 

1032-1039=CHR$(129) 

1056-1063=CHR$(132) 

1080-1087=CHR$(135) 

1104-111 1=CHR$( 138) 

1128-1135=CHR$(141) 

1152-1159=CHR$(144) 

1176-1183=CHR$(147) 



8-15=CHR$(l) 

32-39=CHR$(4) 

56-63 =CHR$(7) 

80-87=CHR$(10) 

104-111=CHR$(13) 

128-135=CHR$(16) 

152-159=CHR$(19) 

176-183=CHR$(22) 

200-207=CHR$(25) 

224-23 1=CHR$(28) 

248-255=CHR$(31) 

272-279=CHR$(34) 

296-303 =CHR$(37) 

320-327=CHR$(40) 

344-35 1=CHR$(43) 

368-375=CHR$(46) 

392-399=CHR$(49) 

4 16-423 =CHR$(52) 

440-447=CHR$(55) 

464-47 1=CHR$(58) 

488-495=CHR$(61) 

512-519=CHR$(64) 

536-543 =CHR$(67) 

560-567=CHR$(70) 

584-591 =CHR$(73) 

608-615=CHR$(76) 

632-639=CHR$(79) 

656-663=CHR$(82) 

680-687=CHR$(85) 

704-7 11=CHR$(88) 

728-735=CHR$(91) 

752-759=CHR$(94) 

776-783 =CHR$(97) 

800-807=CHR$(100) 

824-83 1=CHR$( 103) 

848-855=CHR$(106) 

872-879=CHR$(109) 

896-903=CHR$(112) 

920-927=CHR$(115) 

944-95 1=CHR$( 118) 

968-975=CHR$(121) 

992-999=CHR$(124) 

1016-1023=CHR$(127) 

1040-1047=CHR$(130) 

1064-1071=CHR$(133) 

1088-1095=CHR$(136) 

1112-1119=CHR$(139) 

1136-1 143 =CHR$( 142) 

1160-1167=CHR$(145) 

1184-1191=CHR$(148) 



16-23 =CHR$(2) 

40-47=CHR$(5) 

64-71=CHR$(8) 

88-95=CHR$(U) 

112*H9=CHR$(14) 

136-143=CHR$(17) 

160-167=CHR$(20) 

184-191=CHR$(23) 

208-215=CHR$(26) 

232-239=CHR$(29) 

256-263 =CHR$(32) 

280-287=CHR$(35) 

304-3 11=CHR$(38) 

328-335=CHR$(41) 

352-359=CHR$(44) 

376-383=CHR$(47) 

400-407=CHR$(50) 

424-43 1=CHR$(53) 

448-455=CHR$(56) 

472-479=CHR$(59) 

496-503 =CHR$(62) 

520-527=CHR$(65) 

544.55 1=CHR$(68) 

568-575=CHR$(71) 

592-599=CHR$(74) 

616-623 =CHR$(77) 

640-647=CHR$(80) 

664-67 1=CHR$(83) 

688-695=CHR$(86) 

712-719=CHR$(89) 

736-743 =CHR$(?2) 

760-767=CHR$(95) 

784-791 =CHR$(98) 

808-815=CHR$(101) 

832-839=CHR$(104) 

856-863=CHR$(107) 

880-887=CHR$(110) 

904-911=CHR$(113) 

928-935 =CHR$( 116) 

952-959=CHR$(119) 

976-983=CHR$(122) 

1000-1007=CHR$(125) 

1024-1031 =CHR$( 128) 

1048-1055 =CHR$(131) 

1072-1079 =CHR$(134) 

1096-1103 =CHR$( 137) 

1120-1127 =CHR$( 140) 

1144-1151 =CHR$(143) 

1168-1175 =CHR$(146) 

1192-1199 =CHR$( 149) 



La VRAM es la memoria que con- 
trola todas las operaciones de 
pantalla, es decir, todos los grá- 
ficos, caracteres y SPRITES se pueden 
controlar mediante esta memoria. Para 
este objetivo existen dos instrucciones 
que nos permiten interrelacionarnos 
con la VRAM: 

1 - VPOKE n,x: Introduce en la 
zona de memoria n (entre y 16383) un 
valor x (entre y 255). 

2 - x = VPEEK (n): Lee el valor x 
contenido en una zona de memoria n. 

Mediante estas dos simples instruc- 
ciones se pueden imprimir gráficos, 
mover sprites, redefinir caracteres, es- 
cribirlos en pantalla, etc. 

En este artículo nos limitaremos a 
:ar el funcionamiento de la 
en SCREEN 1, ya que en este 
modo de pantalla es donde más utili- 
dad tiene (casi todos los juegos comer- 
ciales están realizados en SCREEN 1). 




El juego TNTha sido desarrollado utilizando la 
técnica del SCREEN 1. 

LA VRAM EN SCREEN 1 

Inicio de la tabla de caracteres: 0. 

Final de la tabla de caracteres: 2047. 

Inicio de la zona de pantalla: 6144. 

Final de la zona de pantalla: 6911. 

Inicio de la zona de control de SPRI- 
TES: 6912. 

Final de la zona de control de SPRI- 
TES: 7039. 

Inicio de la tabla de colores de carac- 
teres: 8192. 

Final de la tabla de colores de carac- 
teres: 8223. 

Inicio de la tabla de definiciones de 
SPRITES: 14336. 

Final dfc tabla de definiciones de 
SPRITESf 16383. 



1200-1207= 
1224-1231 = 
1248-1255 = 
1272-1279= 
1296-1303= 
f4320-1327 = 
1344-1351 = 
1368-1375= 
1392-1399= 
1416-1423= 
1440-1447= 
1464-1471= 
1488-1495= 
1512-1519= 
1536-1543= 
1560-1567= 
1584-1591= 
1608-1615= 
1632-1639= 
1656-1663= 
1680-1687= 
1704-1711= 
1728-1735= 
1752-1759= 
1776-1783= 
1800-1807= 
1824-1831= 
1848-1855= 
1872-1879= 
1896-1903 = 
1920-1927= 
1944-1951= 
1968-1975= 
1992-1999= 
2016-2023 = 
2040-2047 = 



=CHR$(150) 
=CHR$(153) 
=CHR$(156) 
=CHR$(159) 
=CHR$(162) 
=CHR$(165) 
=CHR$(168) 
=CHR$(171) 
=CHR$(174) 
=CHR$(177) 
=CHR$(180) 
=CHR$(183) 
=CHR$(186) 
=CHR$(189) 
=CHR$(192) 
=CHR$(195) 
=CHR$(198) 
=CHR$(201) 
=CHR$(204) 
=CHR$(207) 
=CHR$(210) 
=CHR$(213) 
=CHR$(216) 
=CHR$(219) 
=CHR$(222) 
=CHR$(225) 
CHR$(228) 
=CHR$(231) 
=CHR$(234) 
=CHR$(237) 
=CHR$(240) 
=CHR$(243) 
=CHR$(246) 
=CHR$(249) 
=CHR$(252) 
=CHR$(255) 



1208-1215 
1232-1239 
1256-1263 
1280-1287= 
1304-1311 
1328-1335 = 
1352-1359= 
1376-1383 = 
1400-1407= 
1424-1431 = 
1448-1455= 
1472-1479= 
1496-1503 = 
1520-1527= 
1544-1551 = 
1568-1575 = 
1592-1599= 
1616-1623= 
1640-1647= 
1664-1671= 
1688-1695= 
1712-1719= 
1736-1743= 
1760-1767= 
1784-1791= 
1808-1815= 
1832-1839= 
1856-1863 = 
1880-1887= 
1904-1911 = 
1928-1935= 
1952-1959= 
1976-1983= 
2000-2007= 
2024-2031 = 



=CHR$(151) 
=CHR$(154) 
=CHR$(157) 
=CHR$(160) 
=CHR$(163) 
=CHR$(166) 
=CHR$(169) 
=CHR$(172) 
=CHR$(175) 
=CHR$(178) 
=CHR$(181) 
=CHR$(184) 
=CHR$(187) 
=CHR$(190) 
=CHR$(193) 
=CHR$(196) 
=CHR$(199) 
=CHR$(202) 
=CHR$(205) 
=CHR$(208) 
=CHR$(211) 
=CHR$(214) 
=CHR$(217) 
=CHR$(220) 
=CHR$(223) 
=CHR$(226) 
=CHR$(229) 
=CHR$(232) 
=CHR$(235) 
=CHR$(238) 
=CHR$(241) 
=CHR$(244) 
=CHR$(247) 
=CHR$(250) 
=CHR$(253) 



1216 
1240 
1264 
1288 
1312 
1336- 
1360- 
1384- 
1408- 
1432- 
1456- 
1480- 
1504- 
1528- 
1552- 
1576- 
1600- 
1624- 
1648- 
1672- 
1696- 
1720- 
1744- 
1768- 
1792- 
1816- 
1840- 
1864- 
1888- 
1912- 
1936- 
1960- 
1984- 
2008 
2032 



-1223 
1247 = 
-1271 = 
1295 = 
-1319= 
1343 = 
1367= 
1391 = 
1415 = 
1439= 
1463 = 
1487 = 
1511 = 
1535 = 
1559= 
1583 = 
1607= 
1631 = 
1655 = 
1679= 
1703 = 
1727 = 
1751 = 
1775 = 
1799= 
1823 = 
1847= 
1871 = 
1895 = 
1919= 
1943 = 
1967 = 
1991 = 
2015 = 
2039= 



=CHR$(152) 
=CHR$(155) 
=CHR$(158) 
=CHR$(161) 
=CHR$(164) 
=CHR$(167) 
=CHR$(170) 
=CHR$(173) 
=CHR$(176) 
=CHR$(179) 
=CHR$(182) 
=CHR$(185) 
=CHR$(188) 
=CHR$(191) 
=CHR$(194) 
=CHR$(197) 
=CHR$(200) 
=CHR$(203) 
=CHR$(206) 
=CHR$(209) 
=CHR$(212) 
^CHR$(215) 
=CHR$(218) 
=CHR$(221) 
=CHR$(224) 
=CHR$(227) 
=CHR$(230) 
=CHR$(233) 
=CHR$(236) 
=CHR$(239) 
=CHR$(442) 
=CHR$(245) 
=CHR$(248) 
=CHR$(251) 
=CHR$(254) 



TABLA 2: Códigos de los colores 



Cod. 


Car. 


Fon. 


Cod. 


Car. 


Fon. 


Cod. 


Car. 


Fon. 











1 





1 


2 





2 


3 





3 


4 





4 


5 





5 


6 


m 


6 


7 





7 


8 





8 


9 





9 


10 





10 


11 





11 


12 





12 


13 





13 


14 





14 


15 





15 


16 







17 


1 


1 


18 


1 


2 


19 




3 


20 


1 


4 


21 


1 


5 


22 




6 


23 


1 


7 


24 


1 


8 


25 




9 


26 


1 


10 


27 


1 


11 


28 




12 


29 


1 


13 


30 


1 


14 


31 




15 


32 


2 





33 


2 


1 


34 


2 


2 


35 


2 


3 


36 


2 


4 


37 


2 


5 


38 


2 


6 


39 


2 


7 


40 


2 


8 


41 


2 


9 


42 


2 


10 


43 


2 


11 


44 


2 


12 


45 


2 


13 


46 


2 


14 


47 


2 


15 


48 


3 





49 


3 


1 


50 


3 


2 


51 


3 


3 


52 


3 


4 


53 


3 


5 


54 


3 


6 


55 


3 


7 


56 


3 


8 


57 


3 


9 


58 


3 


10 


59 


3 


11 


60 


3 


12 


61 


3 


13 


62 


3 


14 


63 


3 


15 


64 


4 





65 


4 


1 


66 


4 


2 


67 


4 


3 


68 


4 


4 


69 


4 


5 


70 


4 


6 


71 


4 


7 


72 


4 


8 


73 


4 


9 


74 


4 


10 


75 


4 


11 


76 


4 


12 


77 


4 


13 


78 


4 


14 


79 


4 


15 


80 


5 






En la tabla de caracteres se encuen- 
tran las definiciones de todos los carac- 
teres utilizados en SCREEN 1. Como 
se puede interaccionar sobre esta me- 
moria, se pueden introducir nuevos da- 
tos que modifiquen los diseños de los 
caracteres, un ejemplo sería: 

SCREEN 1 (a partir de ahora, se da 
por supuesto que estamos en screen 1 ) 
VPOKE 520,255. 

Al pulsar la tecla A, ésta saldrá con 
una línea en la parte superior. 

A cada carácter le corresponden 8 
números que lo definen (como un 
SPRITE de 8x8), para redefinir un ca- 
rácter sólo hay que buscar en qué di- 
rección comienza (buscando en la tabla 
1) e introducir mediante VPOKE los 8 
datos que lo redefinirán, un ejemplo de 
como redefinir la A sería: 

10 SCREEN 1 

20 FOR 1=520 T0 527:READQ: 

VPOKE I,Q: NEXT 
30 DATA 66,129,153,219,189,153, 

129,66 



En este caso, la A queda redefinida 
como una nave espacial, lo que de- 
muestra la utilidad que tiene como sus- 
tituto de un SPRITE, ya que no tiene la 
limitación del auinto SPRITE, un úni- 
co defecto es el de que el movimiento 
no se puede realizar punto por punto, 
sino de ocho en ocho. La mayor dificul- 
tad que puede existir en la definición 
de un carácter puede ser la de encon- 
trar la dirección de dicho carácter, sin 
embargo, como ahora se verá, esto es 
muy sencillo: 

1. El primer paso es el de encontrar 
el código de carácter en decimal, para 
esto existe una función en BASIC que 
nos lo indica: 

PRINTASCCA") 

65 (nos dice que el código decimal de 
* la A es el 65) 

2. El segundo y último paso es el de 
encontrar la dirección. Para ello se 
puede multiplicar el código del carác- 
ter por 8 (65X8=520), con lo que ob- 
tenemos la dirección, o simplemente, 
buscar en la tabla A un CHR$ (65), jun- 
to a dicho carácter se encuentran las di- 
recciones de inicio y final de su defini- 
ción. 

Una vez conocida la forma de dise- 
ñar un nuevo carácter, pasamos al si- 
guiente apartado, que es cómo colocar 
un carácter en pantalla. Para ello debe- 
mos tener en cuenta que la dirección de 
inicio de la zona de pantalla es la 6144 
(que corresponde a la esquina superior 
izquierda), y la del final es la 691 1 (que 
corresponde a la esquina inferior dere- 
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81 


5 


1 


82 


5 2 


83 


5 


3 


84 


5 


4 


85 


5 5 


86 


5 


6 


87 


5 


7 


88 


5 8 


89 


5 


9 


90 


5 


10 


91 


5 11 


92 


5 


12 


93 


5 


13 


94 


5 14 


95 


5 


15 


96 


6 





97 


6 1 


98 


6 


2 


99 


6 


3 


100 


6 4 


101 


6 


5 


102 


6 


6 


103 


6 7 


104 


6 


8 


105 


6 


9 


106 


6 10 


107 


6 


11 


108 


6 


12 


109 


6 13 


110 


6 


14 


111 


6 


15 


112 


7 


113 


7 


1 


114 


7 


2 


115 


7 3 


116 


7 - • 


4 


117 


7 


5 


118 


7 6 


119 


7 


7 


120 


7 


8 


121 


7 9 


122 


7 


10- 


123 


7 


11 


124 


7 12 


125 


7 


13 


126 


7 


14 


127 


7 15 


128 


8 





129 


8 


1 


130 


8 2 


131 


8 


3 


132 


8 


4 


133 


8 5 


134 


8 


6 


135 


8 


7 


136 


8 8 


137 


8 


9 


138 


8 


10 


139 


8 11 


140 


8 


12 


141 


8 


13 


142 


8 14 


143 


8 


15 


144 


9 





145 


9 1 


146 


9 


2 


147 


9 


3 


148 


9 4 


149 


9 


5 


150 


9 


6 


151 


9 7 


152 


9 


8 


153 


9 


9 


154 


9 10 


155 


9 


11 


156 


9 


12 


157 


9 13 


158 


9 


14 


159 


9 


15 


160 


10 


161 


10 


1 


162 


10 


2 


163 


10 3 


164 


10 


4 


165 


10 


5 


166 


10 6 


167 


10 


7 


168 


10 


8 


169 


10 9 


170 


10 


10 


171 


10 


11 


172 


10 12 


173 


10 


13 


174 


10 


14 


175 


10 15 


176 


11 





177 


11 


1 


178 


11 2 


179 


11 


3 


180 


11 


4 


181 


11 5 


182 


11 


6 


183 


11 


7 


184 


11 8 


185 


11 


9 


186 


11 


10 


187 


11 11 


188 


11 


12 


189 


11 


13 


190 


11 14 


191 


11 


15 


192 


12 





193 


12 1 


194 


12 


2 


195 


12 


3 


196 


12 4 


197 


12 


5 


198 


12 


6 


199 


12 7 


200 


12 


8 


201 


12 


9 


202 


12 10 


203 


12 


11 


204 


12 


12 


205 


12 13 


206 


12 


14 


207 


12 


15 


208 


13 


209 


13 


1 


210 


13 


2 


211 


13 3 


212 


13 


4 


213 


13 


5 


214 


13 6 


215 


13 


7 


216 


13 


8 


217 


13 9 


218 


13 


10 


219 


13 


11 


220 


13 12 


221 


13 


13 


222 


13 


14 


223 


13 15 


224 


14 





225 


14 


1 


226 


14 2 


227 


14 


3 


228 


14 


4 


229 


14 5 


230 


14 


6 


231 


14 


7 


232 


14 8 


233 


14 


9 


234 


14 


10 


235 


14 11 


236 


14 


12 


237 


14 


13 


238 


14 14 


239 


14 


15 


240 


15 





241 


15 1 


242 


15 


2 


243 


15 


3 


244 


15 4 


245 


15 


5 


246 


15 


6 


247 


15 7 


248 


15 


8 


249 


15 


9 


250 


15 10 


251 


15 


11 


252 


15 


12 


253 


15 13 


254 


15 


14 


255 


15 


15 












1 TABLA 3: Direcciones para los colores de los caracteres 1 




Direc. 


Carac. 




Direc. 


Carac. 




8192 = 


CHR$(0)- 


CHR$(7) 


8193=CHR$(8)- 


CHR$(15) 




8194= 


CHR$(16) 


-CHR$(23) 


8195=CHR$(24) 


-CHR$(31) 




8196= 


CHR$(32) 


-CHR$(39) 


8197=CHR$(40) 


-CHR$(47) 




8198= 


CHR$(48) 


-CHR$(55) 


8199=CHR$(56) 


-CHR$(63) 




8200= 


CHR$(64) 


-CHR$(71) 


8201=CHR$(72) 


-CHR$(79) 



















cha), cualquier VPOKE que hagamos 
entre estas dos direcciones, dará como 
resultado el que aparezca un carácter 
en esta zona determinada de la panta- 
lla, la posición de pantalla aumenta ho- 
rizontalmente (es decir, la coordenada 
x) si se incrementa la dirección de uno 
en uno, y aumenta verticalmente (coor- 
denada Y) si se incrementa la dirección 
en 32 unidades, unos ejemplos serían: 

VPOKE 6144,65 (aparece una A en la 
esquina superior izquierda de la panta- 
lla) 

VPOKE 6144+1,66 (nos aparecerá 
una B un lugar a la derecha de la A) 
VPOKE 6144+32,67 (nos aparecerá 
una C un lugar por debajo de la A) 
FOR I =6144 TO 691 1: VPOKE 1,32: 
VPOKE 1+ 1,65:NEXT (nos desplaza- 
rá una A por toda la pantalla) 

La relación entre un LOCATE y un 
VPOKE sería: 

LOCATE X,Y: PRINP'A" = 
VPOKE 6144+X+Y*32,65 

El siguiente paso es saber cómo se 
pueden cambiar los colores de los ca- 
racteres, ya que en SCREEN 1 se per- 
mite definir 2 colores por carácter (el 
del carácter y el del fondo de dicho ca- 
rácter). El único inconveniente es el 
que sólo se pueden definir colores en 
grupos de ocho caracteres, la A y la B 
no se pueden definir con distintos co- 
lores, ya que pertenecen al mismo gru- 
po. 

En la tabla número 3 están las direc- 
ciones de cada grupo. Para saber a qué 
grupo pertenece un carácter se necesita 
tener su código en decimal y sólo resta- 
rá buscarlo en la tabla. 

Para elegir un color, es importante 
consultar la tabla número 2, esta tabla 
se divide en tres columnas, la primera 
indica el código que tendremos que 
poner en el VPOKE, la segunda el co- 
lor del carácter y la tercera el color del 
fondo, sólo tenemos que elegir el color 
que deseamos para el carácter y para el 
fondo, buscarlo en la tabla y anotar el 
código correspondiente, un ejemplo 
sería: 

Queremos colorear la letra B, para 
ello averiguamos su código en decimal 
que es el 66, con este código, consulta- 
mos la tercera tabla, y averiguamos que 
la dirección del grupo donde se en- 
cuentra la B es la 8200. 

El segundo paso' es elegir los colores 
a utilizar, en este caso pondremos el ca- 
rácter de color Fucsia(13) y el fondo 
Negro(l). Consultamos la segunda ta- 
bla y encontramos que es el código 
209, ahora falta poner: 



8202=CHR$(80)- 
8204=CHR$(96)- 
8206=CHR$(112) 
8208=CHR$(128) 
8210=CHR$(144) 
8212=CHR$(160) 
8214=CHR$(176) 
8216=CHR$(192) 
8218=CHR$(208) 
8220=CHR$(224) 
8222=CHR$(240) 



CHR$(87) 
CHR$(103) 
-CHR$(119) 
-CHR$(135) 
-CHR$(151) 
-CHR$(167) 
-CHR$(183) 
-CHR$(199) 
-CHR$(215) 
-CHR$(231) 
-CHR$(247) 



8203=CHR$(88)- 
8205=CHR$(104) 
8207=CHR$(120) 
8209=CHR$(136) 
8211=CHR$(152) 
8213=CHR$(168) 
8215=CHR$(184) 
8217=CHR$(200) 
8219=CHR$(216) 
8221=CHR$(232) 
8223=CHR$(248) 



CHR$(95) 
-CHR$(111) 
-CHR$(127) 
-CHR$(143) 
-CHR$(159) 
-CHR$(175) 
-CHR$(191) 
-CHR$(207) 
-CHR$(223) 
-CHR$(239) 
-CHR$(255) 



TABLA 4: Control de los SPRITES 



Plano 0: 



Plano 2: 



Plano 4: 



Plano 6: 



Plano 8: 



Plano 10: 



Plano 12: 



Plano 14: 



Plano 16: 



Plano 18: 



Plano 20: 



69 12- Coordenada Y Plano 1 : 

69 13- Coordenada X 

6914- Num.SPRITE 

6915- Color SPRITE 

6920- Coordenada Y Plano 3 : 

692 1- Coordenada X 

6922- Num.SPRITE 

6923- Color SPRITE 

6928- Coordenada Y Plano 5 : 

6929- Coordenada X 

6930- Num. SPRITE 

6931- Color SPRITE 

6936- Coordenada Y Plano 7: 

693 7- Coordenada X 

6938- Num. SPRITE 

6939- Color SPRITE 

6944- Coordenada Y Plano 9: 

6945- Coordenada X 

6946- Num. SPRITE 

6947- Color SPRITE 

6952- Coordenada Y Plano 1 1 : 

6953- Coordenada X 

6954- Num. SPRITE 

6955- Color SPRITE 

6960- Coordenada Y Plano 13: 

696 1- Coordenada X 

6962- Num. SPRITE 

6963- Color SPRITE 

6968- Coordenada Y Plano 15 : 

6969- Coordenada X 

6970- Num. SPRITE 

6971- Color SPRITE 

6976- Coordenada Y Plano 1 7 : 

6977- Coordenada X 

6978- Num. SPRITE 

6979- Color SPRITE 

6984- Coordenada Y Plano 19: 

6985- Coordenada X 

6986- Num. SPRITE 

6987- Color SPRITE 

6992- Coordenada Y Plano 2 1 : 

6993- Coordenada X 

6994- Num. SPRITE 



69 1 6- Coordenada Y 

69 1 7- Coordenada X 

6918- Num. SPRITE 

6919- Color SPRITE 

6924- Coordenada Y 

6925- Coordenada X 

6926- Num. SPRITE 

6927- Color SPRITE 

6932- Coordenada Y 

6933- Coordenada X 

6934- Num. SPRITE 

6935- Color SPRITE 

6940- Coordenada Y 

694 1- Coordenada X 

6942- Num. SPRITE 

6943- Color SPRITE 

6948- Coordenada Y 

6949- Coordenada X 

6950- Num. SPRITE 

6951- Color SPRITE 

6956- Coordenada Y 

6957- Coordenada X 

6958- Num! SPRITE 

6959- Color SPRITE 

6964- Coordenada Y 

6965- Coordenada X 

6966- Num. SPRITE 

6967- Color SPRITE 

6972- Coordenada Y 

6973- Coordenada X 

6974- Num. SPRITE 

6975- Color SPRITE 

6980- Coordenada Y 

6981- Coordenada X 

6982- Num. SPRITE 

6983- Color SPRITE 

6988- Coordenada Y 

6989- Coordenada X 

6990- Num. SPRITE 

6991- Color SPRITE 

6996- Coordenada Y 

6997- Coordenada X 

6998- ] 



VPOKE 8200,209 (con lo que las letras 
de la A a la G se colorean) 

Ahora que va sabemos definir un ca- 
rácter, ponerlo en pantalla y colorear- 
lo, sólo queda saber cómo y para qué 
leerlo de pantalla: 

Mediante la instrucción VPEEK po- 
demos leer el dato que hay en una di- 
rección de memoria, esta función es in- 
teresante sobre todo para leer los ca- 
racteres que hay en pantalla, por ejem- 
plo, si tenemos una nave en la pantalla 
(un carácter) y tenemos su coordenada 
en un valor X, podemos leer la posición 
de memoria X+l (VPEEK(X+1)) 
para saber si tiene un carácter delante, 
y qué carácter es. 

Mostramos un ejemplo práctico en 
el listado 1 : 

10 CLi 

20 INPUT'CUANTO TIEMPO :";T 

30 SCREEN 1: COLOR 5, 1, 1 :KEY OFF: WIDTH 

32 

40 ON INTERVAL-Tt50 GOSUB 500: INTERVAL 
ON 

50 FOR 1=520 TO 527 'DEFINICION DE LA 
NAVE 

¿0 READ Q 
70 VPOKE I,Q 
80 NEXT I 

90 ' DEFINICION DE LOS MUROS 
100 FOR 1=1600 TO 1607 
110 READ Q 
120 VPOKE I.Q 
130 NEXT I 

140 ' DEFINICION PILDORAS 

150 FOR 1=1200 TO 1207 

160 READ Q: VPOKE I,Q:NEXT I 

170 VPOKE 8200,209 'COLOR CARACTER=FUC 

SIAI13) F0ND0=NE6R0(1) 

180 VPOKE 8217,33 ' COLOR CARACTER=VEP 

DE (2) FOND0=NE6RO(l) 

190 VPOKE 8210,161 'COLOR CARACTEP=AMA 

RILLOU0) FOND0=NEGRO(l) 

200 FOR 1=6144 TO 6911 STEP 32 'PONER 

UN BORDE EN LA PANTALLA 

210 VPOKE I,200:VPOKE 1*31,200 

220 NEXT I 

230 FOR 1=6144 TO 6175 
240 VPOKE 1,200 
250 VPOKE 1+735,200 
260 NEXT I 

270 X=6444 'COORDENADA DE LA NAVE 
280 VPOKE X,65 
290 GOSUB 440 
300 N=0 

310 D=STICK(0):IF D=0 THEN GOTO 310 'T 

ECLAS DEL CURSOR 

320 IF D=l THEN Y=-32 'SUBE 

330 IF D=3 THEN Y=l 'DERECHA 
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Plano 22 : 7000- Coordenada Y 

7001- Coordenada X 

7002- Num.SPRITE 

7003- Color SPRITE 

Plano 24: 700&- Coordenada Y 

7009- Coordenada X 

7010- Num. SPRITE 

70 11- Color SPRITE 

Plano 26: 70 16- Coordenada Y 

70 17- Coordenada X 

7018- Num. SPRITE 

7019- Color SPRITE 

Plano 28: 7024- Coordenada Y 

7025- Coordenada X 

7026- Num. SPRITE 

7027- Color SPRITE 

Plano 30: 7032- Coordenada Y 

7033- Coordenada X 

7034- Num. SPRITE 



Plano 23: 7004- Coordenada Y 

7005- Coordenada X 

7006- Num. SPRITE 

7007- Color SPRITE 

Plano 25: 70 12- Coordenada Y 

70 1 3- Coordenada X 

7014- Num. SPRITE 

7015- Color SPRITE 

Plano 27 : 7020- Coordenada Y 

702 1- Coordenada X 

7022- Num. SPRITE 

7023- Color SPRITE 

Plano 29: 7028- Coordenada Y 

7029- Coordenada X 

7030- Num. SPRITE 

7031- Color SPRITE 

Plano 31: 7036- Coordenada Y 

7037- Coordenada X 

7038- Num. SPRITE 

7039- Color SPRITE 



340 IF D=5 THEN Y=32 'BAJA 

350 IF D=7 THEN Y=-l 'IZQUIERDA 

360 IF VPEEK(XtY)<>200 THEN X=X+Y 'CON 

PRUEBA SI HAY UN MURO 

370 IF X>6911 OR K6144 THEN X=X-Y 

380 IF VPEEK(X)=150 THEN GOSUB 440 'CO 

JER PILDORA 

390 VPOKE X,65:VP0KE X-Y,32 'COLOCA EL 
NUEVO CARACTER Y BORRA EL ANTERIOR 
400 R=INT(RND(1) 11000) ;IF R<768 THEN 4 
20 ELSE 430 'NUEVOS MUROS 
410 IF VPEEK(R+6144)<>32 THEN GOTO 310 
420 VPOKE R+6144,200 
430 60T0 310 
440 PLAY"V15T255L64AF' 
450 N=N+1 

460 R=INT(RND(l)t704)+6144 
470 IF VPEEK(R)<>32 THEN 460 
480 VPOKE R, 150 
490 RETURN 

500 SCREEN 0:COLOR 15,4,4 

510 PRINT" Has recogido";N;"pildoras, 

en";T; "segundos ." 

520 DATA 24,60,102,126,60.36,66,129 

530 DATA 255,213,171,213,171,213,171,2 

55 

540 DATA 60,66,189,173,181,189,66,60 

Test de listados 

10 -159 90 - 58 170 - 48 250 - 

20 - 42 100 - 94 180 -145 260 -204 

30 - 58 110 -216 190 - 10 270 -226 

40 -199 120 -140 200 -214 280 -154 

50 - 32 130 -204 210 -125 290 - 84 

60 -216 140 - 58 220 -204 300 - 78 

70 -140 150 - 58 230 -214 310 - 33 

80 -204 160 -164 240 - 18 320 - 45 



330 - 64 
340 - 63 
350 - 54 
360 -199 
370 - 97 
380 -199 



390 -178 
400 - 29 
410 -169 
420 - 37 
430 -206 
440 -238 



450 -142 510 - 70 

460 -222 520 -135 

470 -103 530 -125 

480 -233 540 -213 



490 -142 
500 -109 



TOTAL: 
6871 
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En SCREEN 1 pueden lograrse altísimas veloci- 
dades como en el juego MATAMARCIANOS. 



LOS SPRITES 

En SCREEN 1 también se pueden 



manejar SPRITES, y dos zonas de la 
VRAM se encargan de ello: 

1 . A partir de la dirección 14336 has- 
ta la 16383 se almacenan las definicio- 
nes de los SPRITES, se pueden alma- 
cenar 256 SPRITES de 8 x 8 ó 64 SPRI- 
TES de 16 X 16. En el primer caso, los 8 
primeros números pertenecerán al pri- 
mer SPRITE (0), los 8 segundos al se- 
gundo (1)... En el segundo caso, los 32 
primeros números corresponderán al 
primer SPRITE (0)... 

2. De la dirección 6912 a la 7039, se 
encuentran todos los datos sobre los 
SPRITES (pos.Y, pos.X, número de 
SPRITE y el color). En la tabla número 
4 se encuentra toda esta zona más en 
detalle. 

El manejo de SPRITES desde VPO- 
KE es bastante sencillo. Para ello se 
pueden seguir los siguientes pasos: 

a) Colocar la definición del SPRITE 
en la memoria (punto 1). 

b) Crear una subrutina de este tipo: 

10 VPOKE 69 12, Y 
20 VPOKE 6913,X 
30 VPOKE 6914,S (número de 

SPRITE) 
40 VPOKE 6915,C (color) 
50 RETURN 

Con ella, bastará un GOSUB 10 
(con los datos actualizados) para que 
ponga el SPRITE en la pantalla, si el 
número de SPRITE permanece cons- 
tante o el color, se pueden omitir las lí- 
neas 30 ó 40 (poniéndolas sólo en el 
principio del programa). Esta subruti- 
na sería igual que poner: 

PUT SPRITE 0,(X,Y),C,S 

IMPORTANTE: Si se trabaja con 
SPRITES de 16X16, el número de 
SPRITE hay que multiplicarlo por 4. 

Veamos un ejemplo en el listado 2. 

10 SCREEN l,2i COLOR 6,1,1 

20 DEFINT IsFQR 1=14336 TO 14367 

30 READ QsVPOKE I,Q:NEXT 'DEFINE LOS S 

PRITES 

40 VPOKE 6914,0:VPOKE 6915,6 ' NUMERO D 
E SPRITE Y COLOR 

50 VPOKE 691B,0:VPOKE 6919,5 'NUMERO D 
E SPRITE Y COLOR 

60 FOR 1=1 TO 255 'BUCLE DE MOVIMIENTO 
70 X=I:Y=88:G0SUB 100 'FIGURA i 
80 X=128:Y=I:60SUB 110 'FIGURA 2 
90 NEXT IlBQTO 60 

100 VPOKE 6912,Y:VP0KE 6913, X: RETURN 
110 VPOKE 6916,Y:VP0KE 6917, X : RETURN 
120 DATA 0,0,48,78,3,7,7,9,9,6,7,2,12, 
16,0,0,0,0,12,114,192,224,224,144,144, 
96,224.64,48,8,0,0 
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YA ESTA EN TU QUIOSCO. Sto 



UNA REVISTA EXCEPCIONAL. Stop 




Diseñada para servir 



al usuario de un PC. Stop 



EL COMO Y EL POR QUEDE 



UN STANDAR COMUN Stop 




OTRO PRODUCTO MANHATTAN TRANSFER; S.A. Stop 



A la vanguardia déla prensa útil. Stop 



Monitor al día 




EL SUPERMICROS 86" 
PARA LA IMPRESORA 
LASER CANON LBP-8 

Recientemente, en el hotel Euro- 
building de Madrid, la Revista 
Micros nizo la entrega a los re- 
presentantes de Canon España, S.A., 
de su trofeo anual "Supermicros", con- 
cedido en su versión 86 a la impresora 
Láser Canon LBP-8, en la categoría de 
"periferia de impresión". 

Con este modelo, Canon se interna 
en el campo de la tecnología Láser apli- 
cada a la informática, en el cual Canon 
es el líder indiscutible. 

Este premio es el reconocimiento de 
la prensa especializada a la constante 
preocupación de Canon por abrir nue- 
vos caminos en el mercado español, 
dando entrada a los modelos más avan- 
zados a nivel mundial. Una vez más... 
¡Enhorabuena Canon! 



THE CHESS GAME 



Ajedrez PHILIPS para MSX-2 

The Chess Game es un excelente 
juego de ajedrez desarrollado 
por Byte Busters para los orde- 
nadores MSX 2, que ofrecerá excelen- 
tes partidas desde la apertura hasta el 
jaque mate. 

El programa permite convertir peo- 
nes en reinas, matar peones al paso y 



del juego se efectúa de un modo muy 
original, puesto que se determina ajus- 
fando el tiempo para cada movimiento. 
Así pues el nivel de dificultad es pro- 
porcional al tiempo permitido al orde- 
nador para ejecutar sus movimientos. 
Cuando el tiempo concedido al orde- 
nador para que éste realice un movi- 
miento haya transcurrido, el ordena- 
dor ejecutará el mejor movimiento en- 
contrado hasta ese instante. 

El juego está completamente contro- 
lado por menús. Cada menú consta de 
determinado número de opciones, a las 




cuales se accede mediante los movi- 
mientos arriba/abajo de los cursores o 
joystick. También es posible almacenar 
la partida en cassette o disco, puesto 
ue el programa se suministra en las 
os versiones, para poder continuar 
ésta en otro momento desde el punto 
en que se haya abandonado. De todo 
punto recomendable para los aficiona- 
dos al ajedrez. 



TECNICAE-87 



I Semana de la Ingeniería 
Asistida por Ordenador 



Del4 al 8 de mayo de 1987, va a 
tener lugar en los locales de la 
Escuela Técnica Superior de 
Ingenieros de Caminos, Canales y 
Puertos de Madrid, "TECNICAE- 
87", I Semana de la Ingeniería Asistida 
por Computador, que va a llevarse a 
cabo bajo el patrocinio de los Ministe- 
rios de Educación y Ciencia e Industria 
y Energía, la Comunidad Autónoma de 
Madrid y el Rectorado de la Universi- 
dad Politécnica de Madrid. 

El objetivo de estas Jornadas es lle- 
var al ámbito universitario una visión lo 
más completa posible del estado actual 
y de las posibilidades de utilización que 
ofrecen los sistemas de Diseño por 
Computador en el ámbito tecnológico, 
y al tiempo, servir de punto de encuen- 
tro entre los mundos de la Universidad 
y la Empresa. 

A lo largo de los cinco días de dura- 
ción de "TECNICAE-87" tendrán lu- 
gar, simultáneamente las siguientes ac- 
tividades. 

- Un Curso de Iniciación al Diseño 
Asistido por Computador. 

- Una serie de Jornadas Sectoriales so- 
bre Ingeniería Asistida por Compu- 
tador (CAE). 

- Una Jornada sobre la Función de la 
Universidad en la implantación y 
transmisión de las tecnologías CAE. 

- Una Jornada sobre la Función de las 
Distintas Administraciones en la 
Transmisión de las Tecnologías 
CAE. 

- Asimismo, y simultáneamente con el 
desarrollo de los actos que se acaban 
de señalar, se celebrará una Exposi- 
ción en la que estarán presentes una 
serie de empresas privadas y organis- 
mos públicos interesados en mostrar 
sus realizaciones en material infor- 
mático para ingeniería y arquitectu- 
ra asistidas por Computador. 
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KINETIC CONNECTION 
Y WORLD 



HELP 



COMNAN 



I 



V 
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Dos nuevos títulos SONY para MSX-2 

Poco motivo de queja tienen los usuarios de MSX-2 con 
respecto al software disponible para estos ordenado- 
res, puesto que constantemente están apareciendo 
nuevos títulos para esta segunda generación. 

Recientemente SONY na lanzado al mercado dos nuevos 
títulos. Se trata de dos programas de juegos: KINÉTIC 
CONNECTION Y WORLD GOLF, suministrados ambos 
en formato de diskette. 

El primer título, KINETIC CONNECTION, es un exci- 
tante rompecabezas, que ofrece quince pantallas distintas de- 
nominadas "Microkinemas", de cuyo nombre puede dedu- 
cirse que están en movimiento permanente. 

El objeto del juego es formar cada una de las misteriosas fi- 
guras atrapando y colocando los objetos móviles en los luga- 
res apropiados. Pero esto no es todo. Pueden seleccionarse 
dos modos distintos de juego: competitivo y no competitivo. 
En el caso de que se seleccione el primer modo, al jugador se 
le asigna un determinado número de puntos que constituye 
su capital (FUND) del que se irán restando puntos a lo largo 
del juego en función de determinadas condiciones. 

Además de esto, es posible seleccionar la disposición ini- 
cial deseada o bien jugar empleando una serie de comandos 
disponibles. 

El juego ofrece una serie de atractivos adicionales, como 
son el uso de comandos de ayuda o la posibilidad de poder al- 
macenar la pantalla en curso para continuar con el "Microki- 
nema" en cualquier otro momento. Por su peculiar diseño, no 
se trata de un juego meramente individual, sino que pueden 
jugar varias personas. 

El segundo título, WORLD GOLF consiste en una intere- 
sante adaptación del juego GOLF. El programa, aparte de 
contar con unos inmejorables gráficos, aprovechando las po- 
sibilidades de los MSX-2, incorpora un amplio abanico de 
opciones. 

En el juego pueden competir hasta tres jugadores, inten- 
tando completar un recorrido total de 18 hoyos. El aspecto 
técnico, para los amantes del GOLF real, es muy veraz. Con- 
tamos con 14 palos diferentes, "irons" y "putters" para poder 
realizar nuestros golpes con la mayor precisión. 

Para completar un golpe hemos de indicar el palo, la direc- 
ción del golpe, la fuerza con que lo damos, y el grado de eleva- 
ción de la bola. 

El campo de golf, está perfectamente realizado, incorpo- 
rando la totalidad de los peligros y alicientes de un campo de 
golf real. Encontraremos por lo tanto bunkers, lagunas, 
roughs y todos aquellos aspectos que hacen interesante al golf 
y que lo han convertido en uno de los deportes más utilizados 
por los programadores de juegos. 



Especial para nuevos 
usuarios. 

Para que ningún lector 
quede al margen te propo- 
nemos una nueva sección/ 
concurso. 

¡Participa con tu pe- 
queño programa de gráfi- 
cos, sonido, juego o truco! 



BASES 

1. ° Podrán participar to- 

dos nuestros lectores, 
cualquiera que sea su 
edad. 

2. " Los programas se re- 

mitirán grabados en 
cassettes debidamente 
protegidas dentro de 
su estuche plástico. 

3. " No se admitirán aque- 

llos programas plagia- 
dos o editados por 
otras publicaciones. 

4. ° Las mejoras a los pro- 

gramas se considerarán 
una aportación al mis- 
mo y se publicarán en la 
sección Línea Directa. 



5.' 



6. 



PREMIOS 

MSX CLUB premiará 
aquellos programas 
publicados con 2.000 
pts. 

MSX CLUB se reserva 
el derecho de abonar 
ios en metáli- 



co o su equivalente en 
software, haciéndolos 
efectivos a los 15 días 
de publicados. 



FALLO Y 
JURADO 

7. a El Departamento de 

Programación actuará 
como jurado y su fallo 
será inapelable. 

8. " Los programas remi- 

tidos no se devolve- 
rán, siendo destruidos 
aquellos que no sean 
seleccionados. 
10.° El plazo finalizará el 
30 de junio de 1987. 
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MSX Y EL SOFT EDUCATIVO 



¡Por Josep Antoni 



ENSEÑANZA 
ASISTIDA POR 
ORDENADOR 



La aparición del standar MSX 
suscitó en su momento excelen- 
tes espectativas para el desarro- 
llo de Software educativo, pues- 
to que varias circunstancias ava- 
laban esta posibilidad. 



Efectivamente, el precio de los 
equipos, el conocimiento de su 
microprocesador Z 80A, y el 
segmento de mercado a que iba desti- 
nado eran buenos argumentos para de- 
cidir a las Empresas de Soft, especiali- 
zadas en temas educativos, a ofrecer al 
público unas ofertas interesantes. En 
un mercado como el español cuyas po- 
sibilidades de consumo son ajustadas, 
se tenía que contar con el apoyo decidi- 
do de los fabricantes de Hard y sus re- 
des de comercialización. 

Hoy podemos asegurar que estas es- 
pectativas si bien no se han cumplido 
en su totalidad, si que, el menos, se han 
cubierto en parte. 

Hoy el usuario español de MSX dis- 
pone, como mínimo, con la oferta de 
Soft educativo más amplia del merca- 
do. Cien títulos de Soft EAO (Ense- 
ñanza Asistida por ordenador), figuran 
en el Catálogo de Plusdata, el más am- 
plio en cuanto a oferta, y donde se en- 
cuentran los programas EAO disponi- 
bles en el mercado para MSX. 

El usuario puede estar satisfecho y 
creemos que aquellas escuelas o parti- 
culares que confiaron en el Standar 
MSX se encuentran con una oferta am- 
plia, que va desde programas de Prees- 
colar hasta Bup y con temas de lengua- 
je, C. Naturales, Matemáticas, Socia- 
les, Cursos de Basic, de Inglés, etc. 

Las Soft-House hubieran deseado 
una mayor colaboración de los fabri- 
cantes. No obstante empresas como 
Sony han hecho un excelente esfuerzo 
al aportar numerosos títulos al merca- 
do. 

Soft-Houses como Plusdata e Idea- 
logic han aportado al mercado títulos 
muy interesantes; prácticamente la ma- 
yoría de los 100 títulos mencionados 
anteriormente se reparten entre pro- 
ductos de estas tres Empresas citadas. 

Por último cabe destacar que el pú- 
blico en general; el usuario particular, 
no tiene a veces conocimiento de estos 
productos de Soft educativo por defi- 
ciencias o limitaciones de los Sistemas 



de distribución de las Soft-House. 
Aquí los fabricantes podrían jugar un 
papel más determinante para su mejor 
difusión. Otra circunstancia que incide 
en la poca demanda por parte del pú- 
blico es que, en un principio, se le ofre- 
cieron productos que amparados como 
EAO dejaban mucho que desear. Hoy 
la calidad del Soft educativo es exce- 
lente y de gran nivel. 



La Escuela, el Soft educativo 

La rápida evolución y expansión de 
la informática en la sociedad actual, su 
implantación en los distintos sectores 
industriales, profesionales, comercia- 
les, etc., e incluso en el hogar, conlleva 
unos cambios en todos los niveles edu- 
cativos y en los planteamientos peda- 
gógicos de la educación a los que la es- 



Aula de informática S VI. Una red ¡ocal MSX que permite la conexión simultánea de hasta JO apa- 
ratos MSX. 
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cuela no puede ser ajena. Introducir la 
informática en la escuela es una impe- 
riosa necesidad a la que nos obliga la 
evolución del entorno social, industrial 
y tecnológico. 

Aunque el proyecto ATENEA y 
otras medidas o proyectos similares de 
las Comunidades autónomas han im- 
pulsado o mejor dicho "introducido" 
el ordenador en las aulas, a pesar que la 
escuela privada está también introdu- 
ciendo el ordenador en la enseñanza, la 
conclusión actual es que la informática 
y las posibilidades pedagógicas que 
ofrece el ordenador no se utilizan en la 
forma debida, en muchas ocasiones 
por una mala orientación desde orga- 
nismos oficiales tanto estatales como 
autónomos. 

La Escuela, al incorporar ordenado- 
res, debe tener en cuenta las siguientes 
leyes: 

- Equipos estándar y adecuados a 
cada nivel (MSX o PC'ST 

- MSX hasta EGB 

- PC'S en BUP, COU y hacia arriba 

- Disponer de programas adecuados 
>ara cada nivel y cada materia 

por ordenador 




para las materias de texto, y para to- 
dos los alumnos del centro 

- Enseñanza de Logo, Basic y paque- 
tes integrados, según nivel de los 
alumnos interesados en ello. 

No obstante, desde ciertos estamen- 
tos oficiales, se ha pretendido que la es- 
cuela desarrolle sus propios programas 
educativos y que los profesores de 
claustro se formen en informática para 
elaborarlos ellos mismos. Lógicamente 
ello ha conducido a una infra-utiliza- 
ción de los equipos y a que los alumnos 
no puedan en muchos casos beneficiar- 
se de las ventajas de trabajar con bue- 
nos programas de Enseñanza Asistida 
desarrollados por empresas especiali- 
zadas. 

Ventajas del Soft educativo 

Los programas de EAO ofrecen 
unas enormes ventajas, de las que el 
primer beneficiario es el alumno. En la 
escuela se utilizan para trabajar en for- 
maintensiva y a la vez amena y relajada 
temas importantes de Matemáticas, 
Sociales, Lenguaje o cualquier otra ma- 
teria como complemento a las explica- 
ciones del profesor. Plusdata ha com- 
probado que el rendimiento de los 
alumnos de los centros (más de 5.000 
alumnos se benefician de ellos) que ya 
utilizan estos programas ha mejorado 
considerablemente. El alumno mejora 
sus capacidades cognitivas; mejora la 
atención, la lógica, el sentido común, la 
organización, la meticulosidad, y au- 
menta el rendimiento. 

Por otra parte los programas EAO 
son un elemento básico en las clases de 
repaso, ya que en el hogar para mejorar 
puntos o materias débiles, el alumno 
puede estudiar el tema a fondo las ve- 
ces que crea convenientes, el programa 
le evalúa y le corrige. Vemos pues una 
doble función o posibilidad: 

- en la escuela como complemento y 
ayuda al profesor. 

- en ej. hogar como repaso y trabajo 
con aquellos temas que creamos ne- 
cesarios. 

Otra posibilidad de gran desarrollo 
en el futuro son los cursos a distancia, 
ya que la ventaja de utilizar el ordena- 
dor como un auténtico profesor impli- 
ca unas enormes perspectivas. 

Los programas EAO 

Al hablar de Software educativo, 
Enseñanza asistida por ordenador y 
programas EAO, el usuario puede du- 
dar sobre sus características y funcio- 
nalidad. Trataremos pues de hacer una 
clasificación, con los riesgos que ello 
supone. 
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Hoy en el mercado podemo dispo- 
ner de los siguientes tipos de progra- 
mas EAO: 

- Programas sobre temas específicos 

Por ejemplo: 
Geografía de Europa 
Ecuaciones 
Análisis morfológico 
Cálculo mental 
Temas de Física 

- Programas tutoriales 
Por ejemplo: 

§obre el manejo de una hoja de 
cálculo 

Sobre las características de un 
ordenador 

- Cursos completos autodidactas 

Por ejemplo: 
de Basic 
Cobol 
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Contabilidad 
Inglés, etc. 
- Programas de simulación 

Por ejemplo: 

De estrategia de Márketing o 

Empresariales 

De prácticas contables 

De fenómenos físicos 

De pruebas de laboratorio 
Básicamente con estas cuatro defini- 
ciones podemos englobar los diferen- 
tes tipos de programas a los que se cali- 
fica como EAO. 

Características de un buen Soft 
EAO 

En el mercado han aparecido des- 
graciadamente malos programas de 



EAO, -como han aparecido malos 
programas de Contabilidad-, pero ello 
tiene la ventaja para el usuario de que al 
menos sabe que es lo que no sirve (es- 
carnio pecuniario aparte). 

¿Qué condiciones o características 
debe reunir un buen programa educa- 
tivo? Esta es la pregunta que tratare- 
mos de contestar. 

Ante todo debemos evitar convertir 
el ordenador en libro, en una pantalla 
que pasa páginas del libro explicando 
textos. Un buen programa EAO debe: 

- Ser en su PARTE EXPLICATIVA 
claro, utilizando las posibilidades 
del ordenador 

- Debe ser por lo tanto, GRAFICO, 
remarcando aquellos puntos más in- 
teresantes o importantes 

- INTERACTIVO, debe mantener un 
diálogo constante con el usuario a 
fin de poder: 

- EVALUAR, corregir, enseñar al 
alumno y adaptarse a su nivel 

- Debe contemplar la posibilidad de 
varios niveles de dificultad adapta- 
bles al nivel del alumno. 

- INFORMATIVO para el profesor y 
alumno de los progresos alcanzados. 

El futuro del Soft EAO para 
MSX. Nuevas perspectivas 

A pesar de la deserción de fabrican- 
tes MSX, lo cual se va a demostrar muy 
posiblemente positivo para el merca- 
do, las perspectivas son excelentes, en 
cuanto a posibilidades técnicas. Las ca- 
racterísticas gráficas de los MSX son 
extraordinarias, y para el Soft educati- 
vo -que entre sus cualidades debe reu- 
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nir la del grafismo- es una excelente 
herramienta que las empresas de Soft 
se alegran de poseer. Las posibilidades 
que brindan en cuanto a la digitaliza- 
ción de imágenes son también extraor- 
dinarias, ya que brindan afeSoft las ven- 
tajas del vídeo y potencian las posibili- 
dades de interacción. 

El CD. Rom, abre igualmente unas 
perspectivas amplísimas de resultados 
cercanos. Pensamos que si los fabri- 
cantes apoyan a las casas de Soft EAO 



en cuanto a facilitar una mayor difu- 
sión de sus productos los resultados se- 
rán de alta calidad, en caso contrario, 
quizá las Soft Houses se vuelquen a 
otros standars. 

Obviamente MSX 2 abre un camino 
de grandes posibilidades, no obstante 
si Ud. aquirió un MSX 1 piense que 
acertó y noy puede: 

- Enseñar a sus hijos a sumar, restar, 
multiplicar, dividir 

- Enseñar a sus hijos mayores, ecua- 



ciones, física o geografía de Europa. 

- Hacer prácticas contables. 

- Seguir cursos de inglés o basic. 

- Dibujar con excelentes programas 
de gráficos. 

Todo ello con programas EAO, para 
MSX y desarrollado por empresas na- 
cionales; sus posibilidades son am- 
plias. 

Íosep Antón 
Lisdata, S.A. 
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La editorial Manhattan Transfer, S.A. 
Se gana a pulso la confianza del lector. 
Cada una de sus publicaciones tienen el 
objetivo específico de servir al lector/usuario. 
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